OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

trans-io.c (gfc_trans_transfer): Add an assert. 

2012-09-15  Tobias Burnus  <burnus@net-b.de>

        * trans-io.c (gfc_trans_transfer): Add an assert.

From-SVN: r191346
This commit is contained in:
Tobias Burnus 2012-09-15 19:22:10 +02:00 committed by Tobias Burnus
parent 51526856a1
commit 770caa74d0
2 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/fortran/ChangeLog
View File

@ -1,3 +1,7 @@
2012-09-15 Tobias Burnus <burnus@net-b.de>
* trans-io.c (gfc_trans_transfer): Add an assert.
2012-09-15 Tobias Burnus <burnus@net-b.de>
* arith.c (arith_power): Call gfc_free_expr in case of error.

1
gcc/fortran/trans-io.c
View File

@ -2317,6 +2317,7 @@ gfc_trans_transfer (gfc_code * code)
tmp = gfc_finish_block (&body);
else
{
gcc_assert (expr->rank != 0);
gcc_assert (se.ss == gfc_ss_terminator);
gfc_trans_scalarizing_loops (&loop, &body);