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 | |
| 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')
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/resolve.c | 10 |
2 files changed, 6 insertions, 10 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 076f048..42c228b 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -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> PR fortran/51972 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 |