homedir: verify

space-physics · Sep 1, 2023 · 569be54 · 569be54
1 parent 08e1b2c
commit 569be54
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/src/ncarglow/fortran/fsutils.f90 b/src/ncarglow/fortran/fsutils.f90
@@ -29,14 +29,17 @@ function homedir()
 
 character(:), allocatable :: homedir
 character(256) :: buf
+integer :: i
 
 ! assume MacOS/Linux/BSD/Cygwin/WSL
-call get_environment_variable("HOME", buf)
+call get_environment_variable("HOME", buf, status=i)
 
-if (len_trim(buf) == 0) then  ! Windows
-  call get_environment_variable("USERPROFILE", buf)
+if (i /= 0) then  ! Windows
+  call get_environment_variable("USERPROFILE", buf, status=i)
 endif
 
+if (i/=0) error stop 'could not determine home directory'
+
 homedir = trim(buf)
 
 end function homedir