re PR fortran/33412 (Bind(C): ELEMENTAL procedure conflicts with BIND(C))

2007-09-13  Tobias Burnus  <burnus@net-b.de>

	PR fortran/33412
	* symbol.c (check_conflict): Add conflict of ELEMENTAL with Bind(C).

2007-09-13  Tobias Burnus  <burnus@net-b.de>

	PR fortran/33412
	* gfortran.dg/elemental_bind_c.f90: New.

From-SVN: r128471

gcc/fortran/ChangeLog

+2007-09-13  Tobias Burnus  <burnus@net-b.de>
+
+	PR fortran/33412
+	* symbol.c (check_conflict): Add conflict of ELEMENTAL with Bind(C).
+
 2007-09-12  Tobias Burnus  <burnus@net-b.de>
 
 	PR fortran/33297

gcc/fortran/symbol.c

@@ -480,6 +480,7 @@ check_conflict (symbol_attribute *attr, const char *name, locus *where)
   conf (is_bind_c, cray_pointer);
   conf (is_bind_c, cray_pointee);
   conf (is_bind_c, allocatable);
+  conf (is_bind_c, elemental);
 
   /* Need to also get volatile attr, according to 5.1 of F2003 draft.
      Parameter conflict caught below.  Also, value cannot be specified

gcc/testsuite/ChangeLog

+2007-09-13  Tobias Burnus  <burnus@net-b.de>
+
+	PR fortran/33412
+	* gfortran.dg/elemental_bind_c.f90: New.
+
 2007-09-13  Richard Sandiford  <richard@codesourcery.com>
 
 	* gcc.dg/gcc-have-sync-compare-and-swap.c: Skip for -mflip-mips16.

gcc/testsuite/gfortran.dg/elemental_bind_c.f90

+! {dg-do compile }
+!
+! PR fortran/33412
+!
+elemental subroutine a() bind(c) ! { dg-error "BIND.C. attribute conflicts with ELEMENTAL" }
+end subroutine a ! { dg-error "Expecting END PROGRAM" }
+
+elemental function b() bind(c) ! { dg-error "BIND.C. attribute conflicts with ELEMENTAL" }
+end function b ! { dg-error "Expecting END PROGRAM" }
+end