| ! { 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 |