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 17end 18