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