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

re PR fortran/51302 (ICE with VOLATILE loop variable)

Browse Source 
2011-11-25  Tobias Burnus  <burnus@net-b.de>

        PR fortran/51302
        * trans-stmt.c (gfc_trans_simple_do): Add a fold_convert.

2011-11-25  Tobias Burnus  <burnus@net-b.de>

        PR fortran/51302
        * gfortran.dg/volatile13.f90: New.

From-SVN: r181724
This commit is contained in:
Tobias Burnus 2011-11-25 16:18:06 +01:00 committed by Tobias Burnus
parent d6b1c2dc3d
commit 8594f636ac
4 changed files with 23 additions and 1 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 @@
2011-11-25 Tobias Burnus <burnus@net-b.de>
PR fortran/51302
* trans-stmt.c (gfc_trans_simple_do): Add a fold_convert.
2011-11-24 Tobias Burnus <burnus@net-b.de>
PR fortran/51218

3
gcc/fortran/trans-stmt.c
View File

@ -1259,7 +1259,8 @@ gfc_trans_simple_do (gfc_code * code, stmtblock_t *pblock, tree dovar,
loc = code->ext.iterator->start->where.lb->location;
/* Initialize the DO variable: dovar = from. */
gfc_add_modify_loc (loc, pblock, dovar, from);
gfc_add_modify_loc (loc, pblock, dovar,
fold_convert (TREE_TYPE(dovar), from));
/* Save value for do-tinkering checking. */
if (gfc_option.rtcheck & GFC_RTCHECK_DO)

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2011-11-25 Tobias Burnus <burnus@net-b.de>
PR fortran/51302
* gfortran.dg/volatile13.f90: New.
2011-11-24 Andrew MacLeod <amacleod@redhat.com>
PR c/51256

11
gcc/testsuite/gfortran.dg/volatile13.f90 Normal file
View File

@ -0,0 +1,11 @@
! { dg-do compile }
!
! PR fortran/51302
!
! Volatile DO variable - was ICEing before
!
integer, volatile :: i
integer :: n = 1
do i = 1, n
end do
end