diff options
| author | Ondřej Čertík <ondrej@certik.us> | 2020-07-22 09:48:53 -0600 |
|---|---|---|
| committer | Ondřej Čertík <ondrej@certik.us> | 2020-07-22 09:50:55 -0600 |
| commit | 06edcbd3eb2c78808becb75b4524b9860f802904 (patch) | |
| tree | d0a61a9f47609fb97bdf50ab4628bb6f493a0bc4 | |
| parent | 155e312152229fe3b3e5f5c55d6ccdb7a8181d7c (diff) | |
| download | fpm-06edcbd3eb2c78808becb75b4524b9860f802904.tar.gz fpm-06edcbd3eb2c78808becb75b4524b9860f802904.zip | |
Print full OS name as a string
| -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) |