From 611081b2882d1928df1d9c09becabe6e645ab424 Mon Sep 17 00:00:00 2001 From: Mark Mitchell Date: Mon, 15 Jan 2001 16:52:49 +0000 Subject: [PATCH] com.c (ffecom_lookup_label): Set DECL_CONTEXT for FORMAT label to current_function_decl. 2001-01-15 Mark Mitchell * com.c (ffecom_lookup_label): Set DECL_CONTEXT for FORMAT label to current_function_decl. From-SVN: r39042 --- gcc/f/ChangeLog | 5 +++++ gcc/f/com.c | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog index eb154fdbc60..7fa185352be 100644 --- a/gcc/f/ChangeLog +++ b/gcc/f/ChangeLog @@ -1,3 +1,8 @@ +2001-01-15 Mark Mitchell + + * 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 * g77spec.c (lang_specific_driver): Update copyright year to 2001. diff --git a/gcc/f/com.c b/gcc/f/com.c index 719df1fb5a1..67b09b3cedc 100644 --- a/gcc/f/com.c +++ b/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);