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/ChangeLog

+2006-10-03  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
+
+	PR middle-end/27478
+	* trans-decl.c (gfc_get_fake_result_decl): Mark var as
+	TREE_ADDRESSABLE.
+
 2006-10-02  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
-    PR fortran/19262
-    * gfortran.h (gfc_option_t): Add max_continue_fixed and max_continue_free.
-    * options.c (gfc_init_options): Initialize fixed form and free form
-    consecutive continuation line limits.
-    * scanner.c (gfc_scanner_init_1): Initialize continue_line
-    and continue_count. (gfc_next_char_literal): Count the number of
-    continuation lines in the current statement and warn if
-    limit is exceeded.
+	PR fortran/19262
+	* gfortran.h (gfc_option_t): Add max_continue_fixed and
+	max_continue_free.
+	* options.c (gfc_init_options): Initialize fixed form and free form
+	consecutive continuation line limits.
+	* scanner.c (gfc_scanner_init_1): Initialize continue_line
+	and continue_count. (gfc_next_char_literal): Count the number of
+	continuation lines in the current statement and warn if limit
+	is exceeded.
 
 2006-10-02  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
-    PR fortran/19260
-    * scanner.c (gfc_next_char_literal): Add check for missing '&'
-    and warn if in_string, otherwise return ' '.
+	PR fortran/19260
+	* scanner.c (gfc_next_char_literal): Add check for missing '&'
+	and warn if in_string, otherwise return ' '.
 
 2006-10-02  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
 

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);
 

gcc/testsuite/ChangeLog

+2006-10-03  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
+
+	PR fortran/27478
+	* gfortran.dg/entry_8.f90: New test.
+
 2006-10-03  Volker Reichelt  <reichelt@igpm.rwth-aachen.de>
 
 	PR c++/29291

gcc/testsuite/gfortran.dg/entry_8.f90

+! { dg-do compile }
+! Check for PR 27478
+      FUNCTION X()
+      ENTRY X1
+      IF (X .GT. 0) CALL FOO(X)
+      IF (Y .GT. 0) CALL FOO(Y)
+      END
+
+      FUNCTION TSL(PIN)
+      ENTRY TSL1(PIN)
+      IF (DBLE(TSL) .GT. PIN) TSL = 705.47
+      TSL= PPP(TSL)
+      END