re PR fortran/39239 (Reject SAVEd variables EQUIVALENCEd to a COMMON)

2017-03-22 Nicolas Koenig <koenigni@student.ethz.ch>

	PR fortran/39239
	* gfortran.dg/equiv_constraint_bind_c.f90: New test.

From-SVN: r246405

gcc/testsuite/ChangeLog

+2017-03-22 Nicolas Koenig <koenigni@student.ethz.ch>
+
+	PR fortran/39239	
+	* gfortran.dg/equiv_constraint_bind_c.f90: New test.
+
 2017-03-22  Jakub Jelinek  <jakub@redhat.com>
 
 	PR c++/80141

gcc/testsuite/gfortran.dg/equiv_constraint_bind_c.f90

+! Testcase for using EQUIVALENCE with BIND(C)
+! See PR fortran/39239
+! { dg-do compile }
+module m
+  use iso_c_binding
+  implicit none
+  integer(c_int) :: i1, i2
+  bind(C) :: i2 
+  equivalence(i1,i2) ! { dg-error "EQUIVALENCE attribute conflicts with BIND" }
+end module m
+