diff options
| author | Tobias Burnus <burnus@net-b.de> | 2012-01-29 12:56:18 +0100 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2012-01-29 12:56:18 +0100 |
| commit | ae98156eaefcf5818bd20f17ed333eb42472b157 (patch) | |
| tree | d404918a3c5c248ce7b87e93f217e69aef37bd8e /gcc/fortran/resolve.c | |
| parent | 319191b93cc06f65880565eeba188d5eaf801035 (diff) | |
| download | gcc-ae98156eaefcf5818bd20f17ed333eb42472b157.zip gcc-ae98156eaefcf5818bd20f17ed333eb42472b157.tar.gz gcc-ae98156eaefcf5818bd20f17ed333eb42472b157.tar.bz2 | |
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
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 10 |
1 files changed, 0 insertions, 10 deletions
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 |