com.c (ffecom_lookup_label): Set DECL_CONTEXT for FORMAT label to current_function_decl.

2001-01-15  Mark Mitchell  <mark@codesourcery.com>

	* com.c (ffecom_lookup_label): Set DECL_CONTEXT for FORMAT
	label to current_function_decl.

From-SVN: r39042

gcc/f/ChangeLog

+2001-01-15  Mark Mitchell  <mark@codesourcery.com>
+
+	* com.c (ffecom_lookup_label): Set DECL_CONTEXT for FORMAT
+	label to current_function_decl.
+
 Fri Jan 12 17:21:33 2001  Joseph S. Myers  <jsm28@cam.ac.uk>
 
 	* g77spec.c (lang_specific_driver): Update copyright year to 2001.

gcc/f/com.c

@@ -12264,7 +12264,7 @@ ffecom_lookup_label (ffelab label)
 						   1, 0));
 	  TREE_CONSTANT (glabel) = 1;
 	  TREE_STATIC (glabel) = 1;
-	  DECL_CONTEXT (glabel) = 0;
+	  DECL_CONTEXT (glabel) = current_function_decl;
 	  DECL_INITIAL (glabel) = NULL;
 	  make_decl_rtl (glabel, NULL);
 	  expand_decl (glabel);