------- Comment #6 from pinskia at gcc dot gnu dot org 2006-02-19 01:40 -------
This program works on powerpc-darwin (and most likely other targets too):
program pr
INTEGER, PARAMETER :: MG=16
REAL,SAVE :: abscoefL1(5,13,MG), abscoefH1(5,13:59,MG), &
SELFREF1(10,MG)
REAL,SAVE :: abscoefL2(5,13,MG), abscoefH2(5,13:59,MG), &
SELFREF2(10,MG)
open (12, file="data", form="unformatted", status="old" )
write (12) abscoefL1, abscoefH1, SELFREF1
write (12) abscoefL2, abscoefH2, SELFREF2
close (12)
open (12, file="data", form="unformatted", status="old" )
read (12, iostat=ier) abscoefL1, abscoefH1, SELFREF1
print *,ier
if (ier.ne.0) call abort()
read (12, iostat=ier) abscoefL2, abscoefH2, SELFREF2
print *,ier
if (ier.ne.0) call abort()
close (12)
stop
1000 call abort()
end program pr
I don't see anything wrong here except using unportable data.
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=26357
