gcc/testsuite/gfortran.dg/namelist_81.f90

   1 ! { dg-do run }
   2 ! PR56786 Error on embedded spaces
   3 integer :: i(3)
   4 namelist /nml/ i
   5
   6 i = -42
   7 open(99,status='scratch')
   8 write(99,'(a)') '&nml i(3 ) = 5 /'
   9 rewind(99)
  10 read(99,nml=nml)
  11 close(99)
  12 if (i(1)/=-42 .or. i(2)/=-42 .or. i(3)/=5) call abort()
  13
  14 ! Shorten the file so the read hits EOF
  15
  16 open(99,status='scratch')
  17 write(99,'(a)') '&nml i(3 ) = 5 '
  18 rewind(99)
  19 read(99,nml=nml, end=30)
  20 call abort()
  21 ! Shorten some more
  22  30 close(99)
  23 open(99,status='scratch')
  24 write(99,'(a)') '&nml i(3 ) ='
  25 rewind(99)
  26 read(99,nml=nml, end=40)
  27 call abort()
  28 ! Shorten some more
  29  40 close(99)
  30 open(99,status='scratch')
  31 write(99,'(a)') '&nml i(3 )'
  32 rewind(99)
  33 read(99,nml=nml, end=50)
  34 call abort()
  35 ! Shorten some more
  36  50 close(99)
  37 open(99,status='scratch')
  38 write(99,'(a)') '&nml i(3 '
  39 rewind(99)
  40 read(99,nml=nml, end=60)
  41 call abort()
  42  60 close(99)
  43 end