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