! { dg-do compile }
! { dg-options "-fcray-pointer" }
!
! PR fortran/62174
! Component declarations within derived types would overwrite the typespec of
! variables with the same name who were Cray pointees.
implicit none

type t1
  integer i
end type t1
type(t1) x

pointer (x_ptr, x)

type t2
  real x ! should not overwrite x's type
end type t2

x%i = 0 ! should see no error here

end