This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[PATCH] Fix libgomp.fortran/retval1.f90 testcase
- From: Jakub Jelinek <jakub at redhat dot com>
- To: Paul Thomas <pault at gcc dot gnu dot org>
- Cc: gcc-patches at gcc dot gnu dot org, fortran at gcc dot gnu dot org
- Date: Mon, 13 Mar 2006 14:17:44 -0500
- Subject: [PATCH] Fix libgomp.fortran/retval1.f90 testcase
- Reply-to: Jakub Jelinek <jakub at redhat dot com>
Hi!
This testcase was broken by Paul's PR fortran/19546 fix,
setting of GFC_DECL_RESULT (var) = 1; got somehow lost.
I have eyeballed the patch and other than that line it looks
ok to me, just trans-openmp.c will need to handle parent retvals.
Ok to commit to trunk?
2006-03-13 Jakub Jelinek <jakub@redhat.com>
* trans-decl.c (gfc_get_fake_result_decl): Re-add setting of
GFC_DECL_RESULT flag.
--- gcc/fortran/trans-decl.c.jj 2006-03-12 09:51:28.000000000 +0100
+++ gcc/fortran/trans-decl.c 2006-03-13 20:02:18.000000000 +0100
@@ -1800,6 +1800,7 @@ gfc_get_fake_result_decl (gfc_symbol * s
SET_DECL_VALUE_EXPR (var, decl);
DECL_HAS_VALUE_EXPR_P (var) = 1;
+ GFC_DECL_RESULT (var) = 1;
TREE_CHAIN (this_fake_result_decl)
= tree_cons (get_identifier (sym->name), var,
Jakub