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
re PR fortran/78741 (ICE in gfc_get_symbol_decl, at fortran/trans-decl.c:1534)
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
generic_13.f90
blob
29f860adf4a00128bcfd313b55d7759b9a050dfb
1
! { dg-do compile }
2
! tests the patch for PR30870, in which the generic XX was rejected
3
! because the specific with the same name was not looked for.
4
!
5
! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
6
!
7
MODULE
TEST
8
INTERFACE
xx
9
MODULE
PROCEDURE xx
10
END INTERFACE
11
public
::
xx
12
CONTAINS
13
SUBROUTINE
xx
(
i
)
14
INTEGER
::
I
15
I
=
7
16
END SUBROUTINE
17
END
18
MODULE
TOO
19
CONTAINS
20
SUBROUTINE
SUB
(
xx
,
I
)
21
INTERFACE
22
SUBROUTINE
XX
(
I
)
23
INTEGER
::
I
24
END SUBROUTINE
25
END INTERFACE
26
CALL
XX
(
I
)
27
END SUBROUTINE
28
END MODULE
TOO
29
PROGRAM
TT
30
USE
TEST
31
USE
TOO
32
INTEGER
::
I
33
CALL
SUB
(
xx
,
I
)
34
IF
(
I
.
NE
.7
)
STOP
1
35
END PROGRAM