From ae98156eaefcf5818bd20f17ed333eb42472b157 Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Sun, 29 Jan 2012 12:56:18 +0100 Subject: 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/resolve.c | 10 ---------- 1 file changed, 10 deletions(-) (limited to 'gcc/fortran/resolve.c') diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 2a96712..250c9eb 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 -- cgit v1.1