lto: Remove random_seed from section name.

[official-gcc.git] / gcc / testsuite / gfortran.dg / unlimited_polymorphic_15.f90

! { dg-do compile }
!
! PR 59493: [OOP] ICE: Segfault on Class(*) pointer association
!
! Contributed by Hossein Talebi <talebi.hossein@gmail.com>

  implicit none

  type ty_mytype1
  end type

  class(ty_mytype1), allocatable, target:: cla1
  class(*), pointer :: ptr

  ptr => cla1

end