From 155e312152229fe3b3e5f5c55d6ccdb7a8181d7c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ond=C5=99ej=20=C4=8Cert=C3=ADk?= Date: Wed, 22 Jul 2020 09:48:34 -0600 Subject: Use uppercase for constants --- fpm/src/fpm.f90 | 14 +++++++------- 1 file 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 -- cgit v1.2.3