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