diff options
| author | init current directory[i] <urbanjost@comcast.net> | 2020-10-11 02:52:50 -0400 |
|---|---|---|
| committer | init current directory[i] <urbanjost@comcast.net> | 2020-10-11 02:52:50 -0400 |
| commit | fd0df5f7910a6ecfb674ce3e0395a7b3f208cdbb (patch) | |
| tree | 4c3d5bbd12f7982d6cce66a8ede6c1489fed4ef0 | |
| parent | c2e6a119719d6e6be485b3fe864b3fd896262316 (diff) | |
| download | fpm-fd0df5f7910a6ecfb674ce3e0395a7b3f208cdbb.tar.gz fpm-fd0df5f7910a6ecfb674ce3e0395a7b3f208cdbb.zip | |
DOS pathname for executable
| -rw-r--r-- | fpm/test/new_test/new_test.f90 | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/fpm/test/new_test/new_test.f90 b/fpm/test/new_test/new_test.f90 index 3fdf159..5d7f9de 100644 --- a/fpm/test/new_test/new_test.f90 +++ b/fpm/test/new_test/new_test.f90 @@ -59,7 +59,8 @@ logical,allocatable :: tally(:) do i=1,size(cmds) message='' - call execute_command_line(cmdpath//''//cmds(i),exitstat=estat,cmdstat=cstat,cmdmsg=message) + write(*,*)path//' '//cmds(i) + call execute_command_line(path//' '//cmds(i),exitstat=estat,cmdstat=cstat,cmdmsg=message) write(*,'(*(g0))')'CMD=',trim(cmds(i)),' EXITSTAT=',estat,' CMDSTAT=',cstat,' MESSAGE=',trim(message) enddo |