From c55cebdacd10021e43ba2b6ca8c6e65c105bb859 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Fran=C3=A7ois-Xavier=20Coudert?= Date: Tue, 3 Oct 2006 13:44:09 +0000 Subject: re PR middle-end/27478 (entry and addressable and value-expr: and the gimplifier) PR middle-end/27478 * trans-decl.c (gfc_get_fake_result_decl): Mark var as TREE_ADDRESSABLE. * gfortran.dg/entry_8.f90: New test. From-SVN: r117396 --- gcc/fortran/trans-decl.c | 1 + 1 file changed, 1 insertion(+) (limited to 'gcc/fortran/trans-decl.c') diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c index e4c5a5a..b3ebffc 100644 --- a/gcc/fortran/trans-decl.c +++ b/gcc/fortran/trans-decl.c @@ -1866,6 +1866,7 @@ gfc_get_fake_result_decl (gfc_symbol * sym, int parent_flag) TREE_PUBLIC (decl) = 0; TREE_USED (decl) = 1; GFC_DECL_RESULT (decl) = 1; + TREE_ADDRESSABLE (decl) = 1; layout_decl (decl, 0); -- cgit v1.1