2 ! { dg-options "-finit-integer=-1 -finit-logical=false -finit-real=nan" }
3 ! { dg-add-options ieee }
4 ! { dg-skip-if "NaN not supported" { spu-*-* } { "*" } { "" } }
11 end program init_flag_3
13 ! Test some initializations for both implicitly and
14 ! explicitly declared local variables.
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
25 subroutine logical_test
28 if (l1 .neqv. .false.) call abort
29 if (l2(2) .neqv. .false.) call abort
30 end subroutine logical_test
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
42 subroutine complex_test
45 if (c1 .eq. c1) call abort
46 if (c2(1,1) .eq. c2(1,1)) call abort
47 end subroutine complex_test