2 ! { dg-add-options ieee }
6 ! Check that namelists and the real values Inf, NaN, Infinity
7 ! properly coexist with interceding line ends and spaces.
11 real , DIMENSION(10) ::foo
15 NAMELIST /nl/ infinity
19 open (10, status="scratch")
21 write (10,'(a)') " &nl foo(1:6) = 5, 5, 5, nan, infinity"
26 write (10,'(a)') "infinity"
38 write (10,'(a)') "=1/"
42 if(infinity /= 1) STOP 1
43 if(any(foo(1:3) /= [5.0, 5.0, 5.0]) .or. .not.isnan(foo(4)) &
44 .or. (foo(5) <= huge(foo)) .or. any(foo(6:10) /= -1.0)) &