This is the mail archive of the gcc-bugs@gcc.gnu.org mailing list for the GCC project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

[Bug fortran/34427] [4.3 Regression] 481.wrf in SPEC CPU 2006 miscompiled



------- Comment #11 from hjl at lucon dot org  2007-12-11 20:16 -------
[hjl@gnu-26 34427]$ cat foo.f90 
  IMPLICIT NONE
  real , DIMENSION(11) ::foo 
  integer :: isfflx
  NAMELIST /nl/ foo
  NAMELIST /nl/ isfflx
  open (10, status="scratch")
  write (10,*) " &nl"
  write (10,*) " foo = 5, 5, 5,"
  write (10,*) " isfflx = 1,"
  write (10,*) " /"
  rewind (10)
  READ (10, NML = nl, ERR = 9200)
  CLOSE (10)
  STOP
9200 CALL abort ()
 END
[hjl@gnu-26 34427]$ /export/gnu/import/svn/rrs/34427/usr/bin/gfortran -static
-o new foo.f90
[hjl@gnu-26 34427]$ ./new 
Aborted
[hjl@gnu-26 34427]$


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=34427


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]