diff options
| -rw-r--r-- | fpm/src/fpm.f90 | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/fpm/src/fpm.f90 b/fpm/src/fpm.f90 index 6670f78..a6c5a18 100644 --- a/fpm/src/fpm.f90 +++ b/fpm/src/fpm.f90 @@ -52,10 +52,15 @@ end if end function subroutine print_help() -integer :: ostype -ostype = get_os() print *, "Fortran Package Manager (fpm)" -print *, "OS Type: ", ostype +select case (get_os()) + case (OS_LINUX) + print *, "OS Type: Linux" + case (OS_MACOS) + print *, "OS Type: macOS" + case (OS_WINDOWS) + print *, "OS Type: Windows" +end select end subroutine subroutine run(cmd) |