mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-03-21 08:40:30 +08:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
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
This commit is contained in:
Andrew Pinski 2006-11-25 20:42:00 -08:00 committed by Andrew Pinski
parent 54dc22f445
commit fade9a8e43
4 changed files with 19 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/fortran/ChangeLog
View File

@ -1,3 +1,8 @@
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

6
gcc/fortran/trans-expr.c
View File

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

6
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,9 @@
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

4
gcc/testsuite/gfortran.fortran-torture/compile/parameter_3.f90 Normal file
View File

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