]>
Commit | Line | Data |
---|---|---|
ee56ac9d | 1 | ! { dg-do run } |
8ceabd25 | 2 | ! { dg-add-options ieee } |
ffeb38bc JD |
3 | ! |
4 | ! PR fortran/34427 | |
5 | ! | |
6 | ! Check that namelists and the real values Inf, NaN, Infinity | |
7 | ! properly coexist with interceding line ends and spaces. | |
8 | ! | |
9 | PROGRAM TEST | |
10 | IMPLICIT NONE | |
11 | real , DIMENSION(10) ::foo | |
12 | integer :: infinity | |
13 | integer :: numb | |
14 | NAMELIST /nl/ foo | |
15 | NAMELIST /nl/ infinity | |
16 | foo = -1.0 | |
17 | infinity = -1 | |
18 | ||
19 | open (10, status="scratch") | |
20 | ||
21 | write (10,'(a)') " &nl foo(1:6) = 5, 5, 5, nan, infinity" | |
22 | write (10,'(a)') | |
23 | write (10,'(a)') | |
24 | write (10,'(a)') | |
25 | write (10,'(a)') | |
26 | write (10,'(a)') "infinity" | |
27 | write (10,'(a)') | |
28 | write (10,'(a)') | |
29 | write (10,'(a)') " " | |
30 | write (10,'(a)') | |
31 | write (10,'(a)') | |
32 | write (10,'(a)') | |
33 | write (10,'(a)') | |
34 | write (10,'(a)') | |
35 | write (10,'(a)') | |
36 | write (10,'(a)') | |
37 | write (10,'(a)') | |
38 | write (10,'(a)') "=1/" | |
39 | rewind (10) | |
40 | READ (10, NML = nl) | |
41 | CLOSE (10) | |
7d6ce202 | 42 | if(infinity /= 1) STOP 1 |
ffeb38bc JD |
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)) & | |
7d6ce202 | 45 | STOP 2 |
ffeb38bc | 46 | END PROGRAM TEST |