repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
2006-02-25 Thomas Koenig <Thomas.Koenig@online.de>
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
module_double_reuse.f90
blob
8c1b6ec6367625cc2ee93fca2e581306a39ccbbd
1
! Test of fix for PR18878
2
!
3
! Based on example in PR by Steve Kargl
4
!
5
module
a
6
integer
,
parameter
::
b
=
kind
(
1
.
d0
)
7
real
(
b
) ::
z
8
end module
a
9
program
d
10
use
a
,
only
:
e
=>
b
,
f
=>
b
,
u
=>
z
,
v
=>
z
11
real
(
e
)
x
12
real
(
f
)
y
13
x
=
1
.
e0_e
14
y
=
1
.
e0_f
15
u
=
99.0
16
if
(
kind
(
x
).
ne
.
kind
(
y
))
call
abort
()
17
if
(
v
.
ne
.
u
)
call
abort
()
18
end program
d
19