! { dg-do run } ! Check that automatic objects work properly in the presence of a save ! statement. ! PR21034 subroutine test(n) implicit none integer n real dte(n) character(len=n) :: s save dte = 0 s = "" end program prog call test(4) call test(10) end program