1! { dg-do run } 2! PR41192 NAMELIST input with just a comment ("&NAME ! comment \") error 3program cmdline 4! comment by itself causes error in gfortran 5 call process(' ') 6 call process('i=10 , j=20 k=30 ! change all three values') 7 call process(' ') 8 call process('! change no values')! before patch this failed. 9end program cmdline 10 11subroutine process(string) 12 implicit none 13 character(len=*) :: string 14 character(len=132) :: lines(3) 15 character(len=255) :: message 16 integer :: i=1,j=2,k=3 17 integer ios 18 namelist /cmd/ i,j,k 19 lines(1)='&cmd' 20 lines(2)=string 21 lines(3)='/' 22 23 read(lines,nml=cmd,iostat=ios,iomsg=message) 24 if (ios.ne.0) call abort 25end subroutine process 26