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