! { 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