OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR fortran/45211 (C interoperable error when compiling BIND(C) function in a module.) 

2010-08-15  Tobias Burnus  <burnus@net-b.de>

        PR fortran/45211
        * decl.c (verify_c_interop_param): Remove superfluous space (" ").
        (verify_c_interop): Handle unresolved DT with bind(C).

2010-08-15  Tobias Burnus  <burnus@net-b.de>

        PR fortran/45211
        * gfortran.dg/bind_c_usage_21.f90: New.
        * gfortran.dg/bind_c_dts_3.f03: Update dg-error.

From-SVN: r163264
This commit is contained in:
Tobias Burnus 2010-08-15 18:20:56 +02:00 committed by Tobias Burnus
parent 08857b6111
commit ba3721c1c2
5 changed files with 41 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View File

@ -1,3 +1,9 @@
2010-08-15 Tobias Burnus <burnus@net-b.de>
PR fortran/45211
* decl.c (verify_c_interop_param): Remove superfluous space (" ").
(verify_c_interop): Handle unresolved DT with bind(C).
2010-08-15 Tobias Burnus <burnus@net-b.de>
* trans-expr.c (gfc_conv_expr_present): Regard nullified

5
gcc/fortran/decl.c
View File

@ -991,7 +991,7 @@ verify_c_interop_param (gfc_symbol *sym)
/* Make personalized messages to give better feedback. */
if (sym->ts.type == BT_DERIVED)
gfc_error ("Type '%s' at %L is a parameter to the BIND(C) "
" procedure '%s' but is not C interoperable "
"procedure '%s' but is not C interoperable "
"because derived type '%s' is not C interoperable",
sym->name, &(sym->declared_at),
sym->ns->proc_name->name,
@ -3612,7 +3612,8 @@ gfc_try
verify_c_interop (gfc_typespec *ts)
{
if (ts->type == BT_DERIVED && ts->u.derived != NULL)
return (ts->u.derived->ts.is_c_interop ? SUCCESS : FAILURE);
return (ts->u.derived->ts.is_c_interop || ts->u.derived->attr.is_bind_c)
? SUCCESS : FAILURE;
else if (ts->is_c_interop != 1)
return FAILURE;

6
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,9 @@
2010-08-15 Tobias Burnus <burnus@net-b.de>
PR fortran/45211
* gfortran.dg/bind_c_usage_21.f90: New.
* gfortran.dg/bind_c_dts_3.f03: Update dg-error.
2010-08-15 Tobias Burnus <burnus@net-b.de>
* gfortran.dg/optional_absent_1.f90: New.

2
gcc/testsuite/gfortran.dg/bind_c_dts_3.f03
View File

@ -26,7 +26,7 @@ type, bind(c):: t3 ! { dg-error "BIND.C. derived type" }
end type t3
contains
subroutine sub0(my_type, expected_value) bind(c) ! { dg-error "is not C interoperable" }
subroutine sub0(my_type, expected_value) bind(c)
type(my_c_type_1) :: my_type
integer(c_int), value :: expected_value

25
gcc/testsuite/gfortran.dg/bind_c_usage_21.f90 Normal file
View File

@ -0,0 +1,25 @@
! { dg-do compile }
!
! PR fortran/45211
!
! Contributed by Scot Breitenfeld
!
module m
contains
FUNCTION liter_cb(link_info) bind(C)
USE ISO_C_BINDING
IMPLICIT NONE
INTEGER(c_int) liter_cb
TYPE, bind(C) :: info_t
INTEGER(c_int) :: type
END TYPE info_t
TYPE(info_t) :: link_info
liter_cb = 0
END FUNCTION liter_cb
end module m
! { dg-final { cleanup-modules "m" } }