1! { dg-do compile }
2!
3! PR fortran/60881
4!
5! Contributed by Damian Rouson
6!
7! Was ICEing before
8!
9program main
10  implicit none
11  type co_object
12    logical :: defined=.false.
13    real, allocatable :: dummy_to_facilitate_extension[:]
14  end type
15  type, extends(co_object) :: global_field
16  end type
17  type(global_field) T
18  call assign_local_field(T)
19contains
20  subroutine assign_local_field(lhs)
21    type(global_field) lhs
22  end subroutine
23end program
24