test fixes

Author: yiwu0b11

flang/runtime/extensions.cpp

@@ -18,20 +18,20 @@
 #include <ctime>
 
 #ifdef _WIN32
-inline void ctime_alloc(char *buffer, size_t bufsize, const time_t cur_time,
+inline void CtimeBuffer(char *buffer, size_t bufsize, const time_t cur_time,
     Fortran::runtime::Terminator terminator) {
   int error{ctime_s(buffer, bufsize, &cur_time)};
   RUNTIME_CHECK(terminator, error == 0);
 }
 #elif _POSIX_C_SOURCE >= 1 || _XOPEN_SOURCE || _BSD_SOURCE || _SVID_SOURCE || \
     _POSIX_SOURCE
-inline void ctime_alloc(char *buffer, size_t bufsize, const time_t cur_time,
+inline void CtimeBuffer(char *buffer, size_t bufsize, const time_t cur_time,
     Fortran::runtime::Terminator terminator) {
   const char *res{ctime_r(&cur_time, buffer)};
   RUNTIME_CHECK(terminator, res != nullptr);
 }
 #else
-inline void ctime_alloc(char *buffer, size_t bufsize, const time_t cur_time,
+inline void CtimeBuffer(char *buffer, size_t bufsize, const time_t cur_time,
     Fortran::runtime::Terminator terminator) {
   buffer[0] = '\0';
   terminator.Crash("fdate is not supported.");

flang/unittests/Runtime/CommandTest.cpp

@@ -230,10 +230,17 @@ TEST_F(NoArgv, FdateGetDate) {
 
   // Tue May 26 21:51:03 2015\n\0
   // index at 3, 7, 10, 19 should be space
-  EXPECT_EQ(input[3], ' ');
-  EXPECT_EQ(input[7], ' ');
-  EXPECT_EQ(input[10], ' ');
-  EXPECT_EQ(input[19], ' ');
+  // when date is less than two digit, index 8 would be space
+  // Tue May  6 21:51:03 2015\n\0
+  for (std::size_t i{0}; i < charLen; i++) {
+    if (i == 8)
+      continue;
+    if (i == 3 || i == 7 || i == 10 || i == 19) {
+      EXPECT_EQ(input[i], ' ');
+      continue;
+    }
+    EXPECT_NE(input[i], ' ');
+  }
 }
 
 TEST_F(NoArgv, FdateGetDateTooShort) {