Sign in
gnu
/
gcc
/
fe115e3147d7d8adf8c94451cc33c9b177293f29
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
coarray_23.f90
blob: b0cbd5f80a96432b19677f801d31659401800cfc [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
{
dg
-
options
"-fcoarray=single"
}
!
!
PR fortran
/
18918
!
!
The
example was
ICEing
before
as
the tree
-
decl
!
of the type was wrong
.
!
subroutine test
complex
,
save
::
z
[*]
if
(
z
/=
cmplx
(
0.0
,
0.0
))
STOP
1
end
subroutine test