base/machine_posix: fallback to USERNAME for m_getlog

cp2k · Dec 6, 2018 · 9eb4201 · 9eb4201
1 parent d4f120e
commit 9eb4201
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/src/base/machine_posix.f90 b/src/base/machine_posix.f90
@@ -380,17 +380,20 @@ END SUBROUTINE m_chdir
 !> \param user ...
 ! **************************************************************************************************
   SUBROUTINE m_getlog(user)
-    CHARACTER(len=*), INTENT(OUT)            :: user
-    INTEGER :: status
+    CHARACTER(len=*), INTENT(OUT) :: user
+    INTEGER                       :: status
 
     ! on a posix system LOGNAME should be defined
     CALL get_environment_variable("LOGNAME", value=user, status=status)
     ! nope, check alternative
     IF (status/=0) &
        CALL get_environment_variable("USER", value=user, status=status)
+    ! nope, check alternative
+    IF (status/=0) &
+       CALL get_environment_variable("USERNAME", value=user, status=status)
     ! fall back
     IF (status/=0) &
-       user="root ;-)"
+       user="<unknown>"
 
   END SUBROUTINE m_getlog