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
* lib/gcc-dg.exp (cleanup-modules): New proc.
[pf3gnuchains/gcc-fork.git]
/
gcc
/
testsuite
/
gfortran.dg
/
use_allocated_1.f90
1
! { dg-do run }
2
! PR17678
3
! We were incorrectly setting use-associated variables to unallocated
4
! on procedure entry.
5
module foo
6
integer, dimension(:), allocatable :: bar
7
end module
8
9
program main
10
use foo
11
allocate (bar(10))
12
call init
13
end program main
14
15
subroutine init
16
use foo
17
if (.not.allocated(bar)) call abort
18
end subroutine init
19
20
! { dg-final { cleanup-modules "foo" } }