gcc/testsuite/gfortran.dg/namelist_86.f90

   1 ! { dg-do run }
   2 ! { dg-options "-std=f2003 " }
   3 ! PR65596 Namelist reads too far.
   4 integer ,parameter :: CL=80
   5 integer ,parameter :: AL=4
   6
   7 character(CL) :: mode
   8 character(CL) :: cats(AL)
   9 character(CL) :: dogs(AL)
  10 character(CL) :: rslt(AL)
  11 integer       :: ierr, k
  12
  13 namelist / theList / cats, dogs, mode
  14
  15 open(27,status="scratch")
  16
  17 write(27,'(A)')  "&theList"
  18 write(27,'(A)')  " mode      = 'on'"
  19 write(27,'(A)')  " dogs      = 'Rover',"
  20 write(27,'(A)')  "             'Spot'"
  21 write(27,'(A)')  " cats      = 'Fluffy',"
  22 write(27,'(A)')  "             'Hairball'"
  23 write(27,'(A)') "/"
  24 rewind(27)
  25
  26 mode    = 'off'
  27 cats(:) = '________'
  28 dogs(:) = '________'
  29
  30 read (27, nml=theList, iostat=ierr)
  31
  32 if (ierr .ne. 0) STOP 1
  33
  34 rslt = ['Rover   ','Spot    ','________','________']
  35 if (any(dogs.ne.rslt)) STOP 2
  36
  37 rslt = ['Fluffy  ','Hairball','________','________']
  38 if (any(cats.ne.rslt)) STOP 3
  39
  40 close(27)
  41
  42 contains
  43
  44 subroutine abort()
  45   close(27)
  46   stop 500
  47 end subroutine abort
  48
  49 end