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
/
import11.f90
blob
f2ac514543d2f30c188d097d81d230e92b6ff038
1
! { dg-do compile }
2
!
3
! PR fortran/53537
4
! The definition of T1 in the interface used to be rejected because T3
5
! was imported under the original name T1.
6
7
MODULE
MOD
8
TYPE
T1
9
SEQUENCE
10
integer
::
j
11
END TYPE
t1
12
END
13
PROGRAM
MAIN
14
USE
MOD
,
T3
=>
T1
15
INTERFACE
SUBR
16
SUBROUTINE
SUBR1
(
X
,
y
)
17
IMPORT
::
T3
18
type
t1
19
! sequence
20
! integer :: i
21
end type
t1
22
TYPE
(
T3
)
X
23
! TYPE(T1) X
24
END SUBROUTINE
25
END INTERFACE
SUBR
26
END PROGRAM
MAIN
27
28