! { 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 |