blob: 1dfebdce3d5aa6ad6734b1ef39d73c43c231ea94 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
! { 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
|
