| ! { dg-do compile } | |
| ! { dg-options "-O2" } | |
| program test | |
| call test2 () | |
| contains | |
| subroutine test2 () | |
| type t | |
| integer, allocatable :: x | |
| end type t | |
| type t2 | |
| class(t), allocatable :: a | |
| end type t2 | |
| type(t2) :: one, two | |
| allocate (two%a) | |
| one = two | |
| end subroutine test2 | |
| end program test | |