1! { dg-do run }
2! Check that automatic objects work properly in the presence of a save
3! statement.
4! PR21034
5subroutine test(n)
6  implicit none
7  integer n
8  real dte(n)
9  character(len=n) :: s
10  save
11  dte = 0
12  s = ""
13end
14
15program prog
16  call test(4)
17  call test(10)
18end program
19