small fixes to tests

Author: yiwu0b11

flang/runtime/extensions.cpp

@@ -80,13 +80,16 @@ void FORTRAN_PROCEDURE_NAME(getarg)(
       n, &value, nullptr, nullptr, __FILE__, __LINE__);
 }
 
+// CALL GETLOG(USRNAME)
 void FORTRAN_PROCEDURE_NAME(getlog)(std::int8_t *arg, std::int64_t length) {
   const int nameMaxLen{LOGIN_NAME_MAX + 1};
   char str[nameMaxLen];
 
   int error{getlogin_r(str, nameMaxLen)};
   Terminator terminator{__FILE__, __LINE__};
-  RUNTIME_CHECK(terminator, error == 0);
+  if (error != 0) {
+    terminator.Crash("getlogin_r fail with a nonzero value: %d.\n", error);
+  }
 
   // find first \0 in string then pad from there
   CopyAndPad(reinterpret_cast<char *>(arg), str, length, std::strlen(str));

flang/unittests/Runtime/ExtensionTest.cpp

@@ -16,10 +16,10 @@
 #include <cstdlib>
 
 #ifdef _WIN32
-#include <lmcons.h> // UNLEN=256
+#include <lmcons.h> // UNLEN
 #define LOGIN_NAME_MAX UNLEN
 #else
-#include <limits.h>
+#include <limits.h> // LOGIN_NAME_MAX
 #endif
 
 using namespace Fortran::runtime;
@@ -37,8 +37,9 @@ TEST_F(ExtensionTests, GetlogGetName) {
 }
 
 TEST_F(ExtensionTests, GetlogPadSpace) {
-  const int charLen{LOGIN_NAME_MAX +
-      2}; // guarantee 1 char longer than max, last char should be pad space
+  // guarantee 1 char longer than max, last char should be pad with space
+  const int charLen{LOGIN_NAME_MAX + 2};
+
   char input[charLen];
 
   FORTRAN_PROCEDURE_NAME(getlog)