2 ! { dg-options "-finit-integer=-1 -finit-logical=false -finit-real=nan" }
3 ! { dg-options "-mieee -finit-integer=-1 -finit-logical=false -finit-real=nan" { target sh*-*-* } }
10 end program init_flag_3
12 ! Test some initializations for both implicitly and
13 ! explicitly declared local variables.
18 if (r1
.eq
. r1
) call abort
19 if (r2(2) .eq
. r2(2)) call abort
20 if (r3(5,5) .eq
. r3(5,5)) call abort
21 if (r4
.eq
. r4
) call abort
22 end subroutine real_test
24 subroutine logical_test
27 if (l1
.neqv
. .false
.) call abort
28 if (l2(2) .neqv
. .false
.) call abort
29 end subroutine logical_test
35 if (i1
/= -1) call abort
36 if (i2(2) /= -1) call abort
37 if (i3(5,5) /= -1) call abort
38 if (i4
/= -1) call abort
39 end subroutine int_test
41 subroutine complex_test
44 if (c1
.eq
. c1
) call abort
45 if (c2(1,1) .eq
. c2(1,1)) call abort
46 end subroutine complex_test