2 ! { dg-options "-finit-integer=101" }
5 call save_test1 (.true.)
6 call save_test1 (.false.)
7 call save_test2 (.true.)
8 call save_test2 (.false.)
9 end program init_flag_7
11 ! Test some initializations for both implicitly and
12 ! explicitly declared local variables.
13 subroutine save_test1 (first)
20 if (i1 .ne. -100) call abort
21 if (i2 .ne. 101) call abort
22 if (i3 .ne. 101) call abort
24 if (i1 .ne. 1001) call abort
25 if (i2 .ne. 1002) call abort
26 if (i3 .ne. 101) call abort
31 end subroutine save_test1
33 subroutine save_test2 (first)
39 if (i1 .ne. -100) call abort
40 if (i2 .ne. 101) call abort
42 if (i1 .ne. 1001) call abort
43 if (i2 .ne. 1002) call abort
47 end subroutine save_test2