fix(CI): don't run command_line_test in GitHub CI

Author: rouson

test/main.f90

@@ -25,9 +25,28 @@ program main
   call formats_test%report(passes, tests)
   call test_result_test%report(passes, tests)
   call string_test%report(passes, tests)
-  if (this_image()==1) then
-    call command_line_test%report(passes, tests)
-    print *, new_line('a'), "_________ In total, ",passes," of ",tests, " tests pass. _________"
-  end if
+
+  if (.not. GitHub_CI())  call command_line_test%report(passes, tests)
+
+  if (this_image()==1) print *, new_line('a'), "_________ In total, ",passes," of ",tests, " tests pass. _________"
+
   if (passes /= tests) error stop
+
+contains
+
+  logical function GitHub_CI()
+    integer name_length
+    character(len=:), allocatable :: CI
+
+    call get_environment_variable("CI", length=name_length)
+
+    if (name_length==0) then
+      GitHub_CI = .false.
+    else
+      allocate(character(len=name_length):: CI)
+      call get_environment_variable("CI", value=CI)
+      GitHub_CI = merge(.true., .false., CI=="true")
+    end if
+  end function
+
 end program