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