! { dg-do compile } ! ! PR fortran/60881 ! ! Contributed by Damian Rouson ! ! Was ICEing before ! program main implicit none type co_object logical :: defined=.false. real, allocatable :: dummy_to_facilitate_extension[:] end type type, extends(co_object) :: global_field end type type(global_field) T call assign_local_field(T) contains subroutine assign_local_field(lhs) type(global_field) lhs end subroutine end program