Sign in
gnu
/
gcc
/
cd2fd5facb5e1882d3f338ed456ae9536f7c0593
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
associate_2.f95
blob: a41398d7850c82ba9b926fe1272629a714060d85 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
{
dg
-
options
"-std=f95"
}
!
PR fortran
/
38936
!
Test
that F95 rejects ASSOCIATE
.
PROGRAM main
IMPLICIT NONE
ASSOCIATE
(
a
=>
5
)
!
{
dg
-
error
"Fortran 2003"
}
END
ASSOCIATE
END
PROGRAM main