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