1! { dg-do run }
2! { dg-options "-std=legacy" }
3!
4! Names in upper case and object names starting column 2
5! Based on example provided by thomas.koenig@online.de
6
7program pr18210
8
9  real :: a
10  character*80 :: buffer
11  namelist /foo/ a
12
13  a = 1.4
14  open (10, status = "scratch")
15  write (10,foo)
16  rewind (10)
17  read (10, '(a)') buffer
18  if (buffer(2:4) /= "FOO") STOP 1
19  read (10, '(a)') buffer
20  if (buffer(1:2) /= " A") STOP 2
21  close (10)
22
23end program pr18210
24