I forgot to attach the committed patch ...
Tobias Burnus wrote:
The patch fixes a build error. The function was accidentally added
Rev. 183620 of 2012-01-27 for PR 52016.
The function is part of the (uncommitted) draft patch for PR 50981.
Committed as Rev. 183675.
Tobias
Index: ChangeLog
===================================================================
--- ChangeLog (Revision 183674)
+++ ChangeLog (Arbeitskopie)
@@ -1,3 +1,9 @@
+2012-01-29 Tobias Burnus <bur...@net-b.de>
+
+ PR fortran/52038
+ * resolve.c (symbol_as): Remove unused, accidentally
+ added function.
+
2012-01-28 Tobias Burnus <bur...@net-b.de>
PR fortran/51972
Index: resolve.c
===================================================================
--- resolve.c (Revision 183674)
+++ resolve.c (Arbeitskopie)
@@ -1582,16 +1582,6 @@
}
-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