https://gcc.gnu.org/bugzilla/show_bug.cgi?id=118793

--- Comment #11 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> ---
There are other error locations I have not yet addressed. I will keep this open
till I get those expanded as well. Note here to remind myself.

The following example identified by Harald.

testcase namelist_101.f90.

A slightly extended version does not show the line and column,
but requires the user to count elements:

program nml_quotes_bug
  implicit none
  integer      :: unit = 10
  character(8) :: c1, c2
  namelist /tovs_obs_chan/ c1, c2
  open (unit ,file="nml-quotes-bug.nml")
  write(unit,*) "&tovs_obs_chan"
  write(unit,*) "  c1 = '1', c1 = '1',"
  write(unit,*) "  c1 = '1', c1 = '1',  c2 = 2 ,"
  write(unit,*) "/"
  rewind(unit)
  read (unit ,nml=tovs_obs_chan)
  close(unit ,status="delete")
end program nml_quotes_bug

Reply via email to