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
PR inline-asm/84742
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
unlimited_polymorphic_7.f90
blob
3bd4d4d734072d73fca2c917bdceddb908bda9ba
1
! { dg-do compile }
2
!
3
! PR fortran/55763
4
!
5
! Contributed by Harald Anlauf
6
!
7
8
module
gfcbug121
9
implicit none
10
type
myobj
11
class
(*),
allocatable
::
x
12
contains
13
procedure
::
print
14
end type
myobj
15
contains
16
subroutine print
(
this
)
17
class
(
myobj
) ::
this
18
end subroutine print
19
end module
gfcbug121