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