gcc/testsuite/gfortran.dg/associate_2.f95

   1 ! { dg-do compile }
   2 ! { dg-options "-std=f95" }
   3
   4 ! PR fortran/38936
   5 ! Test that F95 rejects ASSOCIATE.
   6
   7 PROGRAM main
   8   IMPLICIT NONE
   9
  10   ASSOCIATE (a => 5) ! { dg-error "Fortran 2003" }
  11   END ASSOCIATE
  12 END PROGRAM main