mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
23 lines
327 B
Fortran
23 lines
327 B
Fortran
! { 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
|
|
|