------- Comment #1 from jvdelisle at gcc dot gnu dot org 2007-08-08 02:18
-------
Created an attachment (id=14040)
--> (http://gcc.gnu.org/bugzilla/attachment.cgi?id=14040&action=view)
Namelist input file
Test case using attached input:
PROGRAM namelist
CHARACTER*25 CHAR
NAMELIST /CODE/ CHAR, X
NAMELIST /CODEtwo/ X
C
OPEN(5, file='namelist.in')
100 CHAR = 'Initialize string ***'
X = -777.
READ(5, nml=CODE, END=999)
WRITE(6,*) CHAR, X
GO TO 100
999 STOP 'namelist'
END PROGRAM namelist
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=33019
