mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-05 23:21:31 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR fortran/46244 (gfc_compare_derived_types is buggy)

Browse Source 
2010-11-10  Tobias Burnus <burnus@net-b.de>

        PR fortran/46244
        * resolve.c (resolve_fl_derived): Don't allow CLASS in
        sequence/BIND(C) types.

2010-11-10  Tobias Burnus <burnus@net-b.de>

        PR fortran/46244
        * gfortran.dg/class_30.f90: New.

From-SVN: r166547
This commit is contained in:
Tobias Burnus 2010-11-10 18:44:58 +01:00 committed by Tobias Burnus
parent 445f52e230
commit 0149d8ccb1
4 changed files with 37 additions and 0 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-11-10 Tobias Burnus <burnus@net-b.de>
PR fortran/46244
* resolve.c (resolve_fl_derived): Don't allow CLASS in
sequence/BIND(C) types.
2010-11-09 Jerry DeLisle <jvdelisle@gcc.gnu.org>
Mikael Morin <mikael@gcc.gnu.org>

7
gcc/fortran/resolve.c
View File

@ -11491,6 +11491,13 @@ resolve_fl_derived (gfc_symbol *sym)
sym->name, &sym->declared_at) == FAILURE)
return FAILURE;
if ((sym->attr.sequence || sym->attr.is_bind_c) && c->ts.type == BT_CLASS)
{
gfc_error ("Polymorphic component %s at %L in SEQUENCE or BIND(C) "
"type %s", c->name, &c->loc, sym->name);
return FAILURE;
}
if (sym->attr.sequence)
{
if (c->ts.type == BT_DERIVED && c->ts.u.derived->attr.sequence == 0)

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2010-11-10 Tobias Burnus <burnus@net-b.de>
PR fortran/46244
* gfortran.dg/class_30.f90: New.
2010-11-10 Tobias Burnus <burnus@net-b.de>
PR fortran/46223

19
gcc/testsuite/gfortran.dg/class_30.f90 Normal file
View File

@ -0,0 +1,19 @@
! { dg-do compile }
!
! PR fortran/46244 (comments 7 to 9)
!
! gfortran accepted CLASS in bind(C) and SEQUENCE types
!
type :: t
integer :: i
end type t
type t2
sequence
class(t), pointer :: x ! { dg-error "Polymorphic component x at .1. in SEQUENCE or BIND" }
end type t2
type, bind(C):: t3
class(t), pointer :: y ! { dg-error "may not be C interoperable|Polymorphic component y at .1. in SEQUENCE or BIND" }
end type t3
end