@@ -57,7 +57,10 @@ program new_test
57
57
case (OS_WINDOWS)
58
58
path= windows_path(cmdpath)
59
59
is_os_windows= .true.
60
- call execute_command_line(' rmdir fpm_scratch_* /s /q' ,exitstat= estat,cmdstat= cstat,cmdmsg= message)
60
+ do i= 1 ,size (directories)
61
+ call execute_command_line(' rmdir /s /q fpm_scratch_' // trim (shortdirs(i)),exitstat= estat,&
62
+ cmdstat= cstat,cmdmsg= message)
63
+ end do
61
64
case default
62
65
write (* ,* )' ERROR: unknown OS. Stopping test'
63
66
stop 2
@@ -150,7 +153,12 @@ program new_test
150
153
case (OS_UNKNOWN, OS_LINUX, OS_MACOS, OS_CYGWIN, OS_SOLARIS, OS_FREEBSD, OS_OPENBSD)
151
154
rm_command = ' rm -rf ' // dirs_to_be_removed
152
155
case (OS_WINDOWS)
153
- rm_command = ' rmdir ' // dirs_to_be_removed // ' /s /q'
156
+ do i= 1 ,size (directories)
157
+ rm_command = ' rmdir /s /q fpm_scratch_' // trim (shortdirs(i))
158
+ call execute_command_line(' rmdir /s /q fpm_scratch_' // trim (shortdirs(i)),exitstat= estat,&
159
+ cmdstat= cstat,cmdmsg= message)
160
+ end do
161
+ rm_command = ' rmdir /s /q name-with-hyphens'
154
162
end select
155
163
call execute_command_line(rm_command, exitstat= estat,cmdstat= cstat,cmdmsg= message)
156
164
0 commit comments