re PR fortran/52016 ([OOP] Polymorphism and elemental: missing diagnostic)
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:
parent
3881dee9f0
commit
c696c6f311
|
@ -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>
|
2012-01-27 Tobias Burnus <burnus@net-b.de>
|
||||||
|
|
||||||
PR fortran/51970
|
PR fortran/51970
|
||||||
|
|
|
@ -401,7 +401,9 @@ resolve_formal_arglist (gfc_symbol *proc)
|
||||||
continue;
|
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 "
|
gfc_error ("Argument '%s' of elemental procedure at %L cannot "
|
||||||
"have the POINTER attribute", sym->name,
|
"have the POINTER attribute", sym->name,
|
||||||
|
|
Loading…
Reference in New Issue