gcc/testsuite/gfortran.dg/init_flag_7.f90

! { dg-do run }
! { dg-options "-finit-integer=101" }

program init_flag_7
  call save_test1 (.true.)
  call save_test1 (.false.) 
  call save_test2 (.true.)
  call save_test2 (.false.)
end program init_flag_7

! Test some initializations for both implicitly and
! explicitly declared local variables.
subroutine save_test1 (first)
  logical first
  integer :: i1 = -100
  integer i2
  integer i3
  save i2
  if (first) then
     if (i1 .ne. -100) STOP 1
     if (i2 .ne. 101) STOP 2
     if (i3 .ne. 101) STOP 3
  else
     if (i1 .ne. 1001) STOP 4
     if (i2 .ne. 1002) STOP 5
     if (i3 .ne. 101) STOP 6
  end if
  i1 = 1001
  i2 = 1002
  i3 = 1003
end subroutine save_test1
        
subroutine save_test2 (first)
  logical first
  integer :: i1 = -100
  integer i2
  save
  if (first) then
     if (i1 .ne. -100) STOP 7
     if (i2 .ne. 101) STOP 8
  else
     if (i1 .ne. 1001) STOP 9
     if (i2 .ne. 1002) STOP 10
  end if
  i1 = 1001
  i2 = 1002
end subroutine save_test2