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
2011-04-29 Jerry DeLisle <jvdelisle@gcc.gnu.org>
[pf3gnuchains/gcc-fork.git]
/
gcc
/
testsuite
/
gfortran.dg
/
allocatable_scalar_7.f90
1
! { dg-do run }
2
!
3
! PR fortran/41872
4
!
5
! Allocatable scalars with SAVE
6
!
7
program test
8
implicit none
9
call sub (0)
10
call sub (1)
11
call sub (2)
12
contains
13
subroutine sub (no)
14
integer, intent(in) :: no
15
integer, allocatable, save :: a
16
if (no == 0) then
17
if (allocated (a)) call abort ()
18
allocate (a)
19
else if (no == 1) then
20
if (.not. allocated (a)) call abort ()
21
deallocate (a)
22
else
23
if (allocated (a)) call abort ()
24
end if
25
end subroutine sub
26
end program test