blob: 3bd4d4d734072d73fca2c917bdceddb908bda9ba (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
! { dg-do compile }
!
! PR fortran/55763
!
! Contributed by Harald Anlauf
!
module gfcbug121
implicit none
type myobj
class(*), allocatable :: x
contains
procedure :: print
end type myobj
contains
subroutine print(this)
class(myobj) :: this
end subroutine print
end module gfcbug121
|