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