better error message on read

fortran-lang · Dec 11, 2024 · 5b2283d · 5b2283d
1 parent 79d6f46
commit 5b2283d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/stdlib_io.fypp b/src/stdlib_io.fypp
@@ -614,7 +614,7 @@ contains
           if (iostat/=0) then 
 
               inquire(unit=lun,pos=errpos)                    
-              err0 = state_type('getfile',STDLIB_IO_ERROR,'Error reading',fileName,'at byte',errpos)
+              err0 = state_type('getfile',STDLIB_IO_ERROR,iomsg,'(',fileName,'at byte',errpos,')')
               call err0%handle(err)
               return