OSDN Git Service
(root)
/
pf3gnuchains
/
gcc-fork.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
2010-06-18 Jerry DeLisle <jvdelisle@gcc.gnu.org>
[pf3gnuchains/gcc-fork.git]
/
gcc
/
testsuite
/
gfortran.dg
/
auto_save_1.f90
1
! { dg-do run }
2
! Check that automatic objects work properly in the presence of a save
3
! statement.
4
! PR21034
5
subroutine test(n)
6
implicit none
7
integer n
8
real dte(n)
9
character(len=n) :: s
10
save
11
dte = 0
12
s = ""
13
end
14
15
program prog
16
call test(4)
17
call test(10)
18
end program