gcc/testsuite/gfortran.dg/cray_pointers_11.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

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