blob: d847676d82c3b68395c12850c74e17ad795e478f (
plain)
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
|
