diff options
| author | Ondřej Čertík <ondrej@certik.us> | 2020-07-22 09:48:34 -0600 |
|---|---|---|
| committer | Ondřej Čertík <ondrej@certik.us> | 2020-07-22 09:50:55 -0600 |
| commit | 155e312152229fe3b3e5f5c55d6ccdb7a8181d7c (patch) | |
| tree | 032c98948afda3b3c4e67380f7d4455f388fd321 | |
| parent | ef865577b7d04737afb5d1ba9ebbb150230e198d (diff) | |
| download | fpm-155e312152229fe3b3e5f5c55d6ccdb7a8181d7c.tar.gz fpm-155e312152229fe3b3e5f5c55d6ccdb7a8181d7c.zip | |
Use uppercase for constants
| -rw-r--r-- | fpm/src/fpm.f90 | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/fpm/src/fpm.f90 b/fpm/src/fpm.f90 index 33d52ee..6670f78 100644 --- a/fpm/src/fpm.f90 +++ b/fpm/src/fpm.f90 @@ -3,9 +3,9 @@ implicit none private public :: print_help, cmd_build -integer, parameter :: os_linux = 1 -integer, parameter :: os_macos = 2 -integer, parameter :: os_windows = 3 +integer, parameter :: OS_LINUX = 1 +integer, parameter :: OS_MACOS = 2 +integer, parameter :: OS_WINDOWS = 3 contains @@ -24,7 +24,7 @@ integer stat ! or macOS, then this will be wrong): call get_environment_variable("HOMEPATH", val, status=stat) if (stat == 0) then - r = os_windows + r = OS_WINDOWS return end if @@ -40,14 +40,14 @@ if (stat /= 0) then error stop end if if (val(1:6) == "/home/") then - r = os_linux + r = OS_LINUX else if (val(1:7) == "/Users/") then - r = os_macos + r = OS_MACOS else ! This will happen on HPC systems that typically do not use either /home nor ! /Users for $HOME. Those systems are typically Linux, so for now we simply ! set Linux here. - r = os_linux + r = OS_LINUX end if end function |