diff options
| author | Ondřej Čertík <ondrej@certik.us> | 2020-07-22 09:51:52 -0600 |
|---|---|---|
| committer | Ondřej Čertík <ondrej@certik.us> | 2020-07-22 09:51:52 -0600 |
| commit | e2e2d9c254dd1649a9c431588a056bb2c8fd33b1 (patch) | |
| tree | 84d0394453c57a93cd73813a5841a2160c60255e | |
| parent | 06edcbd3eb2c78808becb75b4524b9860f802904 (diff) | |
| download | fpm-e2e2d9c254dd1649a9c431588a056bb2c8fd33b1.tar.gz fpm-e2e2d9c254dd1649a9c431588a056bb2c8fd33b1.zip | |
Name the function get_os_type()
| -rw-r--r-- | fpm/src/fpm.f90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/fpm/src/fpm.f90 b/fpm/src/fpm.f90 index a6c5a18..d151da9 100644 --- a/fpm/src/fpm.f90 +++ b/fpm/src/fpm.f90 @@ -9,7 +9,7 @@ integer, parameter :: OS_WINDOWS = 3 contains -integer function get_os() result(r) +integer function get_os_type() result(r) ! Determines the OS type. ! ! Currently we use the $HOMEPATH and $HOME environment variables to determine @@ -53,7 +53,7 @@ end function subroutine print_help() print *, "Fortran Package Manager (fpm)" -select case (get_os()) +select case (get_os_type()) case (OS_LINUX) print *, "OS Type: Linux" case (OS_MACOS) |