fix(test): rm module in proc interf

Also manually inline string function.

Author: rouson

src/assert/assert_subroutine_m.F90

@@ -87,7 +87,7 @@ pure subroutine assert(assertion, description)
 
   end subroutine
 
-    pure module subroutine assert_always(assertion, description)
+    pure subroutine assert_always(assertion, description)
       !! Same as above but always enforces the assertion (regardless of ASSERTIONS)
       implicit none
       logical, intent(in) :: assertion
@@ -104,7 +104,11 @@ pure module subroutine assert_always(assertion, description)
 #  else
         me = this_image()
 #  endif
-        message = 'Assertion failure on image ' // string(me) // ':' // description 
+   block
+        character(len=128) image_number
+        write(image_number, *) me
+        message = 'Assertion failure on image ' // trim(adjustl(image_number)) // ':' // description 
+   end block
 #else
         message = 'Assertion failure: ' // description
         me = 0 ! avoid a harmless warning
@@ -118,32 +122,6 @@ pure module subroutine assert_always(assertion, description)
 
       end if check_assertion
 
-  contains
-    
-    pure function string(numeric) result(number_as_string)
-      !! Result is a string represention of the numeric argument
-      class(*), intent(in) :: numeric
-      integer, parameter :: max_len=128
-      character(len=max_len) :: untrimmed_string
-      character(len=:), allocatable :: number_as_string
-
-      select type(numeric)
-        type is(complex)
-          write(untrimmed_string, *) numeric
-        type is(integer)
-          write(untrimmed_string, *) numeric
-        type is(logical)
-          write(untrimmed_string, *) numeric
-        type is(real)
-          write(untrimmed_string, *) numeric
-        class default
-          error stop "Internal error in subroutine 'assert': unsupported type in function 'string'."
-      end select
-
-      number_as_string = trim(adjustl(untrimmed_string))
-
-    end function string
-
   end subroutine
 
 end module assert_subroutine_m

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

@@ -48,15 +48,18 @@ program test_assert_subroutine_error_termination
       end if
     end if
   end block
+#else
+#ifdef __LFORTRAN__
+    print *,trim(merge("passes","FAILS ",exit_status/=0)) // " on error-terminating when assertion = .false."
 #else
     block
-      ! 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)
+      integer unit
+      open(newunit=unit, file="build/exit_status", status="old")
+      read(unit,*) exit_status
+      close(unit)
     end block 
 #endif
+#endif
 
 contains