resolve.c (resolve_procedure_interface): Copy 'is_bind_c' attribute.

2010-11-11  Janus Weil  <janus@gcc.gnu.org>

	* resolve.c (resolve_procedure_interface): Copy 'is_bind_c' attribute.


2010-11-11  Janus Weil  <janus@gcc.gnu.org>

	* gfortran.dg/proc_decl_24.f90: New.

From-SVN: r166623

gcc/fortran/ChangeLog

+2010-11-11  Janus Weil  <janus@gcc.gnu.org>
+
+	* resolve.c (resolve_procedure_interface): Copy 'is_bind_c' attribute.
+
 2010-11-10  Joseph Myers  <joseph@codesourcery.com>
 
 	* trans-array.c (gfc_trans_deferred_array): Use "front-end"

gcc/fortran/resolve.c

@@ -176,6 +176,7 @@ resolve_procedure_interface (gfc_symbol *sym)
       sym->attr.recursive = ifc->attr.recursive;
       sym->attr.always_explicit = ifc->attr.always_explicit;
       sym->attr.ext_attr |= ifc->attr.ext_attr;
+      sym->attr.is_bind_c = ifc->attr.is_bind_c;
       /* Copy array spec.  */
       sym->as = gfc_copy_array_spec (ifc->as);
       if (sym->as)

gcc/testsuite/ChangeLog

+2010-11-11  Janus Weil  <janus@gcc.gnu.org>
+
+	* gfortran.dg/proc_decl_24.f90: New.
+
 2010-11-11  Nicola Pero  <nicola.pero@meta-innovation.com>
 
 	* objc.dg/property/at-property-20.m: New.

gcc/testsuite/gfortran.dg/proc_decl_24.f90

+! { dg-do compile }
+!
+! Contributed by James van Buskirk
+!
+! http://groups.google.com/group/comp.lang.fortran/browse_thread/thread/44d572766bce0e6f/
+
+  use iso_c_binding
+  implicit none
+
+  abstract interface
+    subroutine all_subs(x,y) bind(C)
+      use iso_c_binding
+      real(c_float) :: x,y
+    end subroutine all_subs
+  end  interface
+
+  procedure(all_subs) :: sub
+  type(C_FUNPTR) :: s
+
+  s = c_funloc (sub)
+
+end