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