blob: 207e1e8505f9c3ac8e52b517b66664078fd09c8d (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
! { dg-do compile }
!
! PR 78573: [7 Regression] [OOP] ICE in resolve_component, at fortran/resolve.c:13405
!
! Contributed by Gerhard Steinmetz <gerhard.steinmetz.fortran@t-online.de>
program p
type t1
class(t2), pointer :: q(2) ! { dg-error "must have a deferred shape" }
end type
end
|
