1! { dg-do run } 2! PR17286 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> 6 program bug3 7 integer num1 , num2 , num3 , num4 8 data num3 / 42 / 9 data num4 / 56 / 10 namelist /mynml1/ num1,num2 11 namelist /mynml2/ num3,num4 12 logical dbg 13 data dbg / .FALSE. / 14 open(unit=10,status='SCRATCH') 15 write(10,'(A)') "&mynml1,num1= 16,num2=32,&end" 16! 17! write mynml2 18! 19 write(10,mynml2) 20 rewind(10) 21! 22! now read back 23! 24 num1 = -1 25 num2 = -1 26 read(10,mynml1) 27 if (num1.eq.16.and.num2.eq.32) then 28 if (dbg) write(*,mynml1) 29 else 30 if (dbg) print *, 'expected 16 32 got ',num1,num2 31 call abort 32 endif 33 num3 = -1 34 num4 = -1 35 read(10,mynml2) 36 if (num3.eq.42.and.num4.eq.56) then 37 if (dbg) write(*,mynml2) 38 else 39 if (dbg) print *, 'expected 42 56 got ',num3,num4 40 call abort 41 endif 42 43 close(10) 44 end 45