procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
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
This commit is contained in:
Janus Weil 2010-11-11 22:44:15 +01:00
parent d32ef397c9
commit 8be3d7da69
4 changed files with 31 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
gcc/fortran/ChangeLog
View file

@ -1,3 +1,7 @@
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"

1
gcc/fortran/resolve.c
View file

@ -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)

4
gcc/testsuite/ChangeLog
View file

@ -1,3 +1,7 @@
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.

22
gcc/testsuite/gfortran.dg/proc_decl_24.f90 Normal file
View file

@ -0,0 +1,22 @@
! { 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