4 ! Variable definition context checks related to IO.
6 ! Contributed by Daniel Kraft, d@domob.eu.
11 integer, protected :: a
12 character(len=128), protected :: str
17 integer, parameter :: b = 42
19 character(len=128) :: myStr
21 namelist /definable/ x, myStr
22 namelist /undefinable/ x, a
25 read (myStr, *) a ! { dg-error "variable definition context" }
26 read (myStr, *) x, b ! { dg-error "variable definition context" }
27 write (str, *) 5 ! { dg-error "variable definition context" }
28 read (*, nml=undefinable) ! { dg-error "contains the symbol 'a' which may not" }
35 write (*, nml=undefinable)
36 read (*, nml=definable)
37 write (*, nml=definable)