mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-15 17:01:01 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR fortran/52016 ([OOP] Polymorphism and elemental: missing diagnostic)

Browse Source 
2012-01-27  Tobias Burnus  <burnus@net-b.de>

        PR fortran/52016
        * resolve.c (resolve_formal_arglist): Fix elemental
        constraint checks for polymorphic dummies also for
        pointers.

From-SVN: r183625
This commit is contained in:
Tobias Burnus 2012-01-27 14:59:04 +01:00 committed by Tobias Burnus
parent 3881dee9f0
commit c696c6f311
2 changed files with 10 additions and 1 deletions

7
gcc/fortran/ChangeLog

@ -1,3 +1,10 @@
2012-01-27 Tobias Burnus <burnus@net-b.de>
PR fortran/52016
* resolve.c (resolve_formal_arglist): Fix elemental
constraint checks for polymorphic dummies also for
pointers.
2012-01-27 Tobias Burnus <burnus@net-b.de>
PR fortran/51970

4
gcc/fortran/resolve.c

@ -401,7 +401,9 @@ resolve_formal_arglist (gfc_symbol *proc)
continue;
}
if (sym->attr.pointer)
if (sym->attr.pointer
|| (sym->ts.type == BT_CLASS && CLASS_DATA (sym)
&& CLASS_DATA (sym)->attr.class_pointer))
{
gfc_error ("Argument '%s' of elemental procedure at %L cannot "
"have the POINTER attribute", sym->name,