gcc/testsuite/gfortran.dg/namelist_char_only.f90

   1 ! { dg-do run { target fd_truncate } }
   2 ! { dg-options "-O0" }
   3 ! Test patch for PR24416.f90 - a used to come back from the read with var
   4 ! prepended.
   5 !
   6   IMPLICIT NONE
   7   CHARACTER(len=10)  :: var = "hello"
   8   character(len=10)  :: a = ""
   9   NAMELIST /inx/ var
  10
  11   OPEN(unit=11, status='scratch')
  12   write (11, *) "&INX"
  13   write (11, *) "  var = 'goodbye'"
  14   write (11, *) "&END"
  15   rewind (11)
  16
  17   READ(11,NML=inx)
  18   CLOSE(11)
  19
  20   OPEN(unit=11, status='scratch')
  21   write (11, *) "alls_well"
  22   rewind (11)
  23
  24   READ(11,*) a
  25   CLOSE(11)
  26
  27   if (a /= "alls_well") call abort ()
  28
  29 END