restore fseek_stream implementation

wpbonelli · wpbonelli · commit 2bc6ffb2071a · 2026-06-15T04:28:19.000-07:00
diff --git a/src/Utilities/InputOutput.f90 b/src/Utilities/InputOutput.f90
@@ -1738,7 +1738,7 @@ subroutine fseek_stream(iu, offset, whence, status)
     end select
     !
     ! -- position the file pointer to ipos
-    read (iu, pos=ipos, iostat=status)
+    write (iu, pos=ipos, iostat=status)
     inquire (unit=iu, pos=ipos)
   end subroutine fseek_stream
 

Original file line number	Diff line number	Diff line change
`@@ -1738,7 +1738,7 @@ subroutine fseek_stream(iu, offset, whence, status)`
`1738`	`1738`	`end select`
`1739`	`1739`	`!`
`1740`	`1740`	`! -- position the file pointer to ipos`
`1741`		`- read (iu, pos=ipos, iostat=status)`
	`1741`	`+ write (iu, pos=ipos, iostat=status)`
`1742`	`1742`	`inquire (unit=iu, pos=ipos)`
`1743`	`1743`	`end subroutine fseek_stream`
`1744`	`1744`