aboutsummaryrefslogtreecommitdiff
path: root/test
diff options
context:
space:
mode:
authorBrian Callahan <bcallah@openbsd.org>2021-04-29 15:51:27 -0400
committerBrian Callahan <bcallah@openbsd.org>2021-04-29 15:54:11 -0400
commitbd347aab82173186c10b681d7d99399c15d9db18 (patch)
treeca358226c17387b4259def1a4342efaf9fe91919 /test
parenta9adf2b3ed09d0769f1095ddf7c2c06f71f10161 (diff)
downloadfpm-bd347aab82173186c10b681d7d99399c15d9db18.tar.gz
fpm-bd347aab82173186c10b681d7d99399c15d9db18.zip
Identify OpenBSD
Diffstat (limited to 'test')
-rw-r--r--test/new_test/new_test.f906
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)