gcc/testsuite/gfortran.dg/unlimited_polymorphic_15.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR 59493: [OOP] ICE: Segfault on Class(*) pointer association
   4 !
   5 ! Contributed by Hossein Talebi <talebi.hossein@gmail.com>
   6
   7   implicit none
   8
   9   type ty_mytype1
  10   end type
  11
  12   class(ty_mytype1), allocatable, target:: cla1
  13   class(*), pointer :: ptr
  14
  15   ptr => cla1
  16
  17 end