diff options
| author | Milan Curcic <caomaco@gmail.com> | 2021-04-29 20:28:39 -0400 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2021-04-29 20:28:39 -0400 |
| commit | 7704c0063b70d2a8a0fbcb351dc470886f5802dc (patch) | |
| tree | 79381521e65a2c85f99ea647f708eb5a596d994a /test/new_test/new_test.f90 | |
| parent | 7b53e5a39eda2c5ecbe6c99787c4a707d163d3ef (diff) | |
| parent | bd347aab82173186c10b681d7d99399c15d9db18 (diff) | |
| download | fpm-7704c0063b70d2a8a0fbcb351dc470886f5802dc.tar.gz fpm-7704c0063b70d2a8a0fbcb351dc470886f5802dc.zip | |
Merge pull request #468 from ibara/openbsd
Identify OpenBSD.
Diffstat (limited to 'test/new_test/new_test.f90')
| -rw-r--r-- | test/new_test/new_test.f90 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/test/new_test/new_test.f90 b/test/new_test/new_test.f90 index 3c8c453..a6c859b 100644 --- a/test/new_test/new_test.f90 +++ b/test/new_test/new_test.f90 @@ -4,7 +4,7 @@ use fpm_filesystem, only : is_dir, list_files, exists, windows_path, join_path, dirname use fpm_strings, only : string_t, operator(.in.) use fpm_environment, only : run, get_os_type -use fpm_environment, only : OS_UNKNOWN, OS_LINUX, OS_MACOS, OS_CYGWIN, OS_SOLARIS, OS_FREEBSD, OS_WINDOWS +use fpm_environment, only : OS_UNKNOWN, OS_LINUX, OS_MACOS, OS_CYGWIN, OS_SOLARIS, OS_FREEBSD, OS_OPENBSD, OS_WINDOWS implicit none type(string_t), allocatable :: file_names(:) integer :: i, j, k @@ -49,7 +49,7 @@ logical :: IS_OS_WINDOWS !! o DOS versus POSIX filenames is_os_windows=.false. select case (get_os_type()) - case (OS_UNKNOWN, OS_LINUX, OS_MACOS, OS_CYGWIN, OS_SOLARIS, OS_FREEBSD) + case (OS_UNKNOWN, OS_LINUX, OS_MACOS, OS_CYGWIN, OS_SOLARIS, OS_FREEBSD, OS_OPENBSD) call execute_command_line('rm -rf fpm_scratch_*',exitstat=estat,cmdstat=cstat,cmdmsg=message) path=cmdpath case (OS_WINDOWS) @@ -145,7 +145,7 @@ logical :: IS_OS_WINDOWS ! clean up scratch files; might want an option to leave them for inspection select case (get_os_type()) - case (OS_UNKNOWN, OS_LINUX, OS_MACOS, OS_CYGWIN, OS_SOLARIS, OS_FREEBSD) + case (OS_UNKNOWN, OS_LINUX, OS_MACOS, OS_CYGWIN, OS_SOLARIS, OS_FREEBSD, OS_OPENBSD) call execute_command_line('rm -rf fpm_scratch_*',exitstat=estat,cmdstat=cstat,cmdmsg=message) case (OS_WINDOWS) call execute_command_line('rmdir fpm_scratch_* /s /q',exitstat=estat,cmdstat=cstat,cmdmsg=message) |