gcc/testsuite/gfortran.dg/associate_4.f08

   1 ! { dg-do compile }
   2 ! { dg-options "-std=f2008 -fcoarray=single" }
   3
   4 ! PR fortran/38936
   5 ! Check for error with coindexed target.
   6
   7 PROGRAM main
   8   IMPLICIT NONE
   9   INTEGER :: a[*]
  10
  11   ASSOCIATE (x => a[1]) ! { dg-error "must not be coindexed" }
  12 END PROGRAM main