gcc/testsuite/gfortran.dg/coarray_23.f90

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