blob: d847676d82c3b68395c12850c74e17ad795e478f [file] [log] [blame]
! { 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