1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
! { dg-do compile }
! { dg-options "-O -g" }
! PR fortran/77693 - ICE in rtl_for_decl_init
! Contributed by G.Steinmetz
program p
implicit none
complex, target :: y = (1.,2.)
complex, target :: z(2) = (3.,4.)
complex, pointer :: a => y
complex, pointer :: b => z(1)
complex, pointer :: c, d, e
data c /NULL()/ ! Valid
data d /y/ ! Valid
data e /(1.,2.)/ ! { dg-error "Pointer assignment target" }
if (associated (a)) print *, a% re
if (associated (b)) print *, b% im
if (associated (c)) print *, c% re
if (associated (d)) print *, d% im
if (associated (e)) print *, e% re
end
|