blob: afa44e8642aae47343f57b87a56173aefb8d71ff [file] [log] [blame]
! { dg-do run }
Module m
Implicit None
Type, Public :: t1
Integer, Allocatable :: i(:)
End Type
Type, Public :: t2
Integer, Allocatable :: i(:)
End Type
Type, Public :: t3
Type (t2) :: t
End Type
Type, Public :: t4
End Type
Type, Public, Extends (t4) :: t5
Type (t1) :: t_c1
End Type
Type, Public, Extends (t4) :: t6
Type (t5) :: t_c2
End Type
Type, Public, Extends (t6) :: t7
Type (t3) :: t_c3
End Type
End Module
Program main
Use m
Implicit None
Interface
Subroutine s(t)
Use m
Class (t4), Allocatable, Intent (Out) :: t
End Subroutine
End Interface
Class (t4), Allocatable :: t
Call s(t)
Deallocate (t)
End Program
Subroutine s(t)
Use m
Class (t4), Allocatable, Intent (Out) :: t
Allocate (t7 :: t)
End Subroutine