OSDN Git Service

2005-10-24 Paul Thomas <pault@gcc.gnu.org>
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / namelist_char_only.f90
1 ! { dg-do run }
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