[PATCH] Fix libgomp.fortran/retval1.f90 testcase

[Jakub Jelinek]

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