gcc/testsuite/gfortran.dg/pr109662.f90

   1 ! { dg-do run }
   2 ! { dg-options "-std=f2003" }
   3 ! PR109662 a comma after namelist name accepted on input.
   4 program testnmlread
   5   implicit none
   6   character(16) :: list = '&stuff, n = 759/'
   7   character(100)::message
   8   integer       :: n, ioresult
   9   namelist/stuff/n
  10   message = ""
  11   ioresult = 0
  12   n = 99
  13   read(list,nml=stuff,iostat=ioresult)
  14   if (ioresult == 0) STOP 13
  15 end program testnmlread