intel compiler hack

Author: wassup05

src/stdlib_system.F90

@@ -792,7 +792,11 @@ pure function fs_error_code(code,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10, &
     class(*), intent(in), optional, dimension(..) :: a1,a2,a3,a4,a5,a6,a7,a8,a9,a10, &
         a11,a12,a13,a14,a15,a16,a17,a18
 
-    state = state_type(STDLIB_FS_ERROR, "code -", to_string(code)//",",a1,a2,a3,a4,a5,a6,a7,a8, & 
+    character(:), allocatable :: code_str
+
+    code_str = to_string(code) // ","
+
+    state = state_type(STDLIB_FS_ERROR, "code -",code_str,a1,a2,a3,a4,a5,a6,a7,a8, & 
         a9,a10,a11,a12,a13,a14,a15,a16,a17,a18)
 end function fs_error_code