c-typeck.c (c_begin_vm_scope): Fix file_scope processing.

	* c-typeck.c (c_begin_vm_scope): Fix file_scope processing.
testsuite:
	* gcc.dg/vla-7.c: Add.

From-SVN: r114530

gcc/ChangeLog

+2006-06-09  Mike Stump  <mrs@apple.com>
+
+	* c-typeck.c (c_begin_vm_scope): Fix file_scope processing.
+
 2006-06-09  David Daney  <ddaney@avtrex.com>
 
 	* doc/install.texi: Add binutils version recommendation for mips-*-*.

gcc/c-typeck.c

@@ -7550,6 +7550,11 @@ c_begin_vm_scope (unsigned int scope)
   struct c_label_list *glist;
 
   gcc_assert (scope > 0);
+
+  /* At file_scope, we don't have to do any processing.  */
+  if (label_context_stack_vm == NULL)
+    return;
+
   if (c_switch_stack && !c_switch_stack->blocked_vm)
     c_switch_stack->blocked_vm = scope;
   for (glist = label_context_stack_vm->labels_used;

gcc/testsuite/ChangeLog

+2006-06-09  Mike Stump  <mrs@apple.com>
+
+	* gcc.dg/vla-7.c: Add.
+
 2006-06-10  Paul Thomas  <pault@gcc.gnu.org>
 
 	PR fortran/24558

gcc/testsuite/gcc.dg/vla-7.c

+/* { dg-options "-std=c99" } */
+
+int (*foo)(int (*a)[*]);