|
! { dg-do compile }
|
|
! Test fixes for PR41618.
|
|
!
|
|
! Contributed by Janus Weil <janus@gcc.gnu.org>
|
|
!
|
|
type t1
|
|
integer :: comp
|
|
class(t1),pointer :: cc
|
|
end type
|
|
|
|
class(t1) :: x ! { dg-error "must be dummy, allocatable or pointer" }
|
|
|
|
x%comp = 3
|
|
print *,x%comp
|
|
|
|
end
|