re PR fortran/52038 (fortran bootstrap failure: no previous prototype for 'symbol_as')
2012-01-29 Tobias Burnus <burnus@net-b.de> PR fortran/52038 * resolve.c (symbol_as): Remove unused, accidentally added function. From-SVN: r183675
This commit is contained in:
parent
319191b93c
commit
ae98156eae
|
@ -1,3 +1,9 @@
|
||||||
|
2012-01-29 Tobias Burnus <burnus@net-b.de>
|
||||||
|
|
||||||
|
PR fortran/52038
|
||||||
|
* resolve.c (symbol_as): Remove unused, accidentally
|
||||||
|
added function.
|
||||||
|
|
||||||
2012-01-28 Tobias Burnus <burnus@net-b.de>
|
2012-01-28 Tobias Burnus <burnus@net-b.de>
|
||||||
|
|
||||||
PR fortran/51972
|
PR fortran/51972
|
||||||
|
|
|
@ -1582,16 +1582,6 @@ resolve_procedure_expression (gfc_expr* expr)
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
gfc_array_spec *
|
|
||||||
symbol_as (gfc_symbol *sym)
|
|
||||||
{
|
|
||||||
if (sym->ts.type == BT_CLASS && sym->attr.class_ok)
|
|
||||||
return CLASS_DATA (sym)->as;
|
|
||||||
else
|
|
||||||
return sym->as;
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
/* Resolve an actual argument list. Most of the time, this is just
|
/* Resolve an actual argument list. Most of the time, this is just
|
||||||
resolving the expressions in the list.
|
resolving the expressions in the list.
|
||||||
The exception is that we sometimes have to decide whether arguments
|
The exception is that we sometimes have to decide whether arguments
|
||||||
|
|
Loading…
Reference in New Issue