2012-01-29 Tobias Burnus <burnus@net-b.de>

        PR fortran/52038
        * resolve.c (symbol_as): Remove unused, accidentally
        added function.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@183675 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 076f048..42c228b 100644 (file)
--- 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 (file)
--- 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