XX: direcly use exit_status value

Author: Pranavchiku

test/test-assert-subroutine-error-termination.F90

@@ -27,7 +27,8 @@ program test_assert_subroutine_error_termination
 #elif _CRAYFTN
     command = "fpm run --example false-assertion --profile release --compiler crayftn.sh --flag '-DASSERTIONS' > /dev/null 2>&1", &
 #else
-    command = "echo 'example/false_assertion.F90: unsupported compiler' && exit 1", &
+    ! For all other compilers, we assume that the default fpm command works
+    command = "fpm run --example false-assertion --profile release --flag '-DASSERTIONS -ffree-line-length-0' > /dev/null 2>&1", &
 #endif
     wait = .true., &
     exitstat = exit_status &
@@ -49,11 +50,11 @@ program test_assert_subroutine_error_termination
   end block
 #else
     block
-      integer unit
-      open(newunit=unit, file="build/exit_status", status="old")
-      read(unit,*) exit_status
+      ! integer unit
+      ! open(newunit=unit, file="build/exit_status", status="old")
+      ! read(unit,*) exit_status
       print *,trim(merge("passes","FAILS ",exit_status/=0)) // " on error-terminating when assertion = .false."
-      close(unit)
+      ! close(unit)
     end block 
 #endif