diff options
| author | init current directory[i] <urbanjost@comcast.net> | 2020-10-11 05:10:56 -0400 |
|---|---|---|
| committer | init current directory[i] <urbanjost@comcast.net> | 2020-10-11 05:10:56 -0400 |
| commit | a5162c09c6f6ff900ae1f23a9946c2e3b19c5e5c (patch) | |
| tree | 5366877c929b7d109de4b3a15995d86b4a09c1b1 | |
| parent | 0678a9a8cdd88a2df4764db5b438f4c24dc6beac (diff) | |
| download | fpm-a5162c09c6f6ff900ae1f23a9946c2e3b19c5e5c.tar.gz fpm-a5162c09c6f6ff900ae1f23a9946c2e3b19c5e5c.zip | |
whitespace
| -rw-r--r-- | fpm/src/fpm/cmd/new.f90 | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/fpm/src/fpm/cmd/new.f90 b/fpm/src/fpm/cmd/new.f90 index 6435e11..ce00357 100644 --- a/fpm/src/fpm/cmd/new.f90 +++ b/fpm/src/fpm/cmd/new.f90 @@ -17,13 +17,13 @@ character(len=:),allocatable :: message(:) character(len=:),allocatable :: littlefile(:) if(exists(settings%name) .and. .not.settings%backfill )then - write(stderr,'(*(g0,1x))')'fpm::new<ERROR>',settings%name,'already exists.' - write(stderr,'(*(g0,1x))')' perhaps you wanted to add --backfill ?' - return + write(stderr,'(*(g0,1x))')'fpm::new<ERROR>',settings%name,'already exists.' + write(stderr,'(*(g0,1x))')' perhaps you wanted to add --backfill ?' + return elseif(exists(settings%name) .and. settings%backfill )then - write(*,'(*(g0))')'backfilling ',settings%name + write(*,'(*(g0))')'backfilling ',settings%name else - call mkdir(settings%name) ! make new directory + call mkdir(settings%name) ! make new directory endif call run('cd '//settings%name) ! change to new directory as a test. System dependent potentially !! NOTE: need some system routines to handle filenames like "." like realpath() or getcwd(). @@ -126,9 +126,9 @@ character(len=*),intent(in) :: fname character(len=*),intent(in) :: data(:) if(.not.exists(fname))then - call filewrite(fname,data) + call filewrite(fname,data) else - write(stderr,'(*(g0,1x))')'fpm::new<INFO>',fname,'already exists. Not overwriting' + write(stderr,'(*(g0,1x))')'fpm::new<INFO>',fname,'already exists. Not overwriting' endif end subroutine warnwrite |