blob: e1768a57574404302188f2e5373bfca99d3ef53d (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
! { dg-do compile }
! PR fortran/108434 - ICE in class_allocatable
! Contributed by G.Steinmetz
program p
type t
class(c), pointer :: a(2) ! { dg-error "must have a deferred shape" }
end type t
class(t), allocatable :: x
class(t), pointer :: y
end
|