From ae98156eaefcf5818bd20f17ed333eb42472b157 Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Sun, 29 Jan 2012 12:56:18 +0100 Subject: [PATCH] re PR fortran/52038 (fortran bootstrap failure: no previous prototype for 'symbol_as') 2012-01-29 Tobias Burnus PR fortran/52038 * resolve.c (symbol_as): Remove unused, accidentally added function. From-SVN: r183675 --- gcc/fortran/ChangeLog | 6 ++++++ gcc/fortran/resolve.c | 10 ---------- 2 files changed, 6 insertions(+), 10 deletions(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 076f0483ea0..42c228b8bc2 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2012-01-29 Tobias Burnus + + PR fortran/52038 + * resolve.c (symbol_as): Remove unused, accidentally + added function. + 2012-01-28 Tobias Burnus PR fortran/51972 diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 2a967120d29..250c9eb5cd6 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -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 resolving the expressions in the list. The exception is that we sometimes have to decide whether arguments