re PR fortran/29982 ([4.1 only] ICE in write() with gfortran 4.1.2 (and 4.2 and 4.3...))

2006-11-25  Andrew Pinski  <pinskia@gmail.com>

        PR fortran/29982
        * trans-expr.c (gfc_conv_expr_reference): Strip off NOP_EXPRs.

2006-11-25  Andrew Pinski  <pinskia@gmail.com>

        PR fortran/29982
        * gfortran.fortran-torture/compile/parameter_3.f90: New
        testcase.

From-SVN: r119218

gcc/fortran/ChangeLog

 2006-11-25  Andrew Pinski  <pinskia@gmail.com>
 
+	PR fortran/29982
+	* trans-expr.c (gfc_conv_expr_reference): Strip off NOP_EXPRs.
+
+2006-11-25  Andrew Pinski  <pinskia@gmail.com>
+
 	PR fortran/29951
 	* trans-intrinsic.c (gfc_conv_intrinsic_transfer): Change to
 	call memcpy instead of creating a VIEW_CONVERT_EXRP.

gcc/fortran/trans-expr.c

@@ -3133,8 +3133,10 @@ gfc_conv_expr_reference (gfc_se * se, gfc_expr * expr)
   /* Create a temporary var to hold the value.  */
   if (TREE_CONSTANT (se->expr))
     {
-      var = build_decl (CONST_DECL, NULL, TREE_TYPE (se->expr));
-      DECL_INITIAL (var) = se->expr;
+      tree tmp = se->expr;
+      STRIP_TYPE_NOPS (tmp);
+      var = build_decl (CONST_DECL, NULL, TREE_TYPE (tmp));
+      DECL_INITIAL (var) = tmp;
       TREE_STATIC (var) = 1;
       pushdecl (var);
     }

gcc/testsuite/ChangeLog

 2006-11-25  Andrew Pinski  <pinskia@gmail.com>
 
+	PR fortran/29982
+	* gfortran.fortran-torture/compile/parameter_3.f90: New
+	testcase.
+
+2006-11-25  Andrew Pinski  <pinskia@gmail.com>
+
 	PR fortran/29951
 	* gfortran.fortran-torture/execute/transfer2.f90: New test.
 

gcc/testsuite/gfortran.fortran-torture/compile/parameter_3.f90

+program tst
+   write (6,"(a,es15.8)") "2.0**(-0.0) = ",2.0**(-0.0)
+end program tst
+