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