Rebase.
[official-gcc.git] / gcc / testsuite / gfortran.dg / coarray_23.f90
blob429928a4d86de975fd6e77ceae8170d524135407
1 ! { dg-do compile }
2 ! { dg-options "-fcoarray=single" }
4 ! PR fortran/18918
6 ! The example was ICEing before as the tree-decl
7 ! of the type was wrong.
10 subroutine test
11 complex, save :: z[*]
12 if (z /= cmplx (0.0, 0.0)) call abort()
13 end subroutine test