Run fortitude

Author: mzecc

tests/unit/main.f90

@@ -47,7 +47,7 @@ program tester_unit
     end if
 
     if (stat > 0) then
-        write (error_unit, '(i0, 1x, a)') stat, "test(s) failed!"
+        write (error_unit, "(i0, 1x, a)") stat, "test(s) failed!"
         error stop 1
     end if
 

tests/unit/test_get_wavelength.f90

@@ -2,7 +2,7 @@
 module test_get_wavelength
 
     ! How to print to stdout
-    use ISO_Fortran_env, only: stdout => OUTPUT_UNIT
+    use, intrinsic :: ISO_Fortran_env, only: stdout => OUTPUT_UNIT
     use testdrive, only: new_unittest, unittest_type, error_type, check
 
     use kind_parameters, only: dp