2010-04-29 Janus Weil <janus@gcc.gnu.org>

[pf3gnuchains/gcc-fork.git] / gcc / fortran / match.c

diff --git a/gcc/fortran/match.c b/gcc/fortran/match.c
index 44e9f9d..5f25e96 100644 (file)
--- a/gcc/fortran/match.c
+++ b/gcc/fortran/match.c
@@ -4280,7 +4280,7 @@ select_type_set_tmp (gfc_typespec *ts)
   if (ts->type == BT_CLASS)
     {
       gfc_build_class_symbol (&tmp->n.sym->ts, &tmp->n.sym->attr,
-                             &tmp->n.sym->as);
+                             &tmp->n.sym->as, false);
       tmp->n.sym->attr.class_ok = 1;
     }