]>
Commit | Line | Data |
---|---|---|
51b09ce3 AL |
1 | ! { dg-do run } |
2 | ! { dg-options "-finit-integer=-1 -finit-logical=false -finit-real=nan" } | |
8ceabd25 | 3 | ! { dg-add-options ieee } |
4f4b0ab8 | 4 | ! { dg-skip-if "NaN not supported" { spu-*-* } } |
51b09ce3 AL |
5 | |
6 | program init_flag_3 | |
7 | call real_test | |
8 | call logical_test | |
9 | call int_test | |
10 | call complex_test | |
11 | end program init_flag_3 | |
12 | ||
13 | ! Test some initializations for both implicitly and | |
14 | ! explicitly declared local variables. | |
15 | subroutine real_test | |
16 | real r1 | |
17 | real r2(10) | |
18 | dimension r3(10,10) | |
19 | if (r1 .eq. r1) call abort | |
20 | if (r2(2) .eq. r2(2)) call abort | |
21 | if (r3(5,5) .eq. r3(5,5)) call abort | |
22 | if (r4 .eq. r4) call abort | |
23 | end subroutine real_test | |
24 | ||
25 | subroutine logical_test | |
26 | logical l1 | |
27 | logical l2(2) | |
28 | if (l1 .neqv. .false.) call abort | |
29 | if (l2(2) .neqv. .false.) call abort | |
30 | end subroutine logical_test | |
31 | ||
32 | subroutine int_test | |
33 | integer i1 | |
34 | integer i2(10) | |
35 | dimension i3(10,10) | |
36 | if (i1 /= -1) call abort | |
37 | if (i2(2) /= -1) call abort | |
38 | if (i3(5,5) /= -1) call abort | |
39 | if (i4 /= -1) call abort | |
40 | end subroutine int_test | |
41 | ||
42 | subroutine complex_test | |
43 | complex c1 | |
44 | complex c2(20,20) | |
45 | if (c1 .eq. c1) call abort | |
46 | if (c2(1,1) .eq. c2(1,1)) call abort | |
47 | end subroutine complex_test |