gcc/testsuite/gfortran.dg/same_type_as_3.f03

! { dg-do run }
!
! Test the fix for PR57710.
!
! Contributed by Tobias Burnus  <burnus@gcc.gnu.org>
!
module m
  type t
  end type t
  type t2
    integer :: ii
    class(t), allocatable :: x
  end type t2
contains
  subroutine fini(x)
     type(t) :: x
  end subroutine fini
end module m

use m
block
  type(t) :: z
  type(t2) :: y
  y%ii = 123
  if (.not. same_type_as(y%x, z)) call abort ()
end block
end