aboutsummaryrefslogtreecommitdiffstats
path: root/gcc-4.9/gcc/testsuite/gfortran.dg/equiv_8.f90
diff options
context:
space:
mode:
Diffstat (limited to 'gcc-4.9/gcc/testsuite/gfortran.dg/equiv_8.f90')
-rw-r--r--gcc-4.9/gcc/testsuite/gfortran.dg/equiv_8.f907
1 files changed, 7 insertions, 0 deletions
diff --git a/gcc-4.9/gcc/testsuite/gfortran.dg/equiv_8.f90 b/gcc-4.9/gcc/testsuite/gfortran.dg/equiv_8.f90
new file mode 100644
index 000000000..a2ed7f034
--- /dev/null
+++ b/gcc-4.9/gcc/testsuite/gfortran.dg/equiv_8.f90
@@ -0,0 +1,7 @@
+! { dg-do compile }
+!
+! PR fortran/41755
+!
+ common /uno/ aa
+ equivalence (aa,aaaaa) (bb,cc) ! { dg-error "Expecting a comma in EQUIVALENCE" }
+ end