Subversion Repositories openrisc

! { dg-do run }

! PR41192 NAMELIST input with just a comment ("&NAME ! comment \") error

program cmdline

! comment by itself causes error in gfortran

   call process(' ')

   call process('i=10 , j=20 k=30 ! change all three values')

   call process(' ')

   call process('! change no values')! before patch this failed.

end program cmdline

subroutine process(string)

 implicit none

 character(len=*) :: string

 character(len=132) :: lines(3)

 character(len=255) :: message

 integer :: i=1,j=2,k=3

 integer ios

 namelist /cmd/ i,j,k

 save cmd

 lines(1)='&cmd'

 lines(2)=string

 lines(3)='/'

 read(lines,nml=cmd,iostat=ios,iomsg=message)

 if (ios.ne.0) call abort

end subroutine process