3 ! Namelist read failed when spaces exist between the '=' and the numbers
4 ! This is a libgfortran bug
5 ! Derived from testcase provided by Paul Thomas <paulthomas2@wanadoo.fr>
7 integer num1 , num2 , num3 , num4
10 namelist /mynml1/ num1,num2
11 namelist /mynml2/ num3,num4
14 open(unit=10,status='SCRATCH')
15 write(10,'(A)') "&mynml1,num1= 16,num2=32,&end"
27 if (num1.eq.16.and.num2.eq.32) then
28 if (dbg) write(*,mynml1)
30 if (dbg) print *, 'expected 16 32 got ',num1,num2
36 if (num3.eq.42.and.num4.eq.56) then
37 if (dbg) write(*,mynml2)
39 if (dbg) print *, 'expected 42 56 got ',num3,num4