1! { dg-do compile }
2! Test fixes for PR41618.
3!
4! Contributed by Janus Weil <janus@gcc.gnu.org>
5!
6 type t1
7 integer :: comp
8 class(t1),pointer :: cc
9 end type
10
11 class(t1) :: x ! { dg-error "must be dummy, allocatable or pointer" }
12
13 x%comp = 3
14 print *,x%comp
15
16end
17