1! { dg-do run } 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-*-* } { "*" } { "" } } 5 6program init_flag_3 7 call real_test 8 call logical_test 9 call int_test 10 call complex_test 11end program init_flag_3 12 13! Test some initializations for both implicitly and 14! explicitly declared local variables. 15subroutine 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 23end subroutine real_test 24 25subroutine logical_test 26 logical l1 27 logical l2(2) 28 if (l1 .neqv. .false.) call abort 29 if (l2(2) .neqv. .false.) call abort 30end subroutine logical_test 31 32subroutine 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 40end subroutine int_test 41 42subroutine 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 47end subroutine complex_test 48