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-04-22 Richard Guenther <rguenther@suse.de>
[pf3gnuchains/gcc-fork.git]
/
gcc
/
testsuite
/
gfortran.dg
/
common_equivalence_1.f
1
c { dg-do run }
2
c This program tests the fix for PR22304.
3
c
4
c provided by Paul Thomas - pault@gcc.gnu.org
5
c
6
integer a(2), b, c
7
COMMON /foo/ a
8
EQUIVALENCE (a(1),b), (c, a(2))
9
a(1) = 101
10
a(2) = 102
11
call bar ()
12
END
13
14
subroutine bar ()
15
integer a(2), b, c, d
16
COMMON /foo/ a
17
EQUIVALENCE (a(1),b), (c, a(2))
18
if (b.ne.101) call abort ()
19
if (c.ne.102) call abort ()
20
END
21