* trans-io.c (gfc_trans_transfer): Add an assert.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@191346
138bc75d-0d04-0410-961f-
82ee72b054a4
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.
* array.c (gfc_match_array_constructor): Initialize variable.
(gfc_resolve_character_array_constructor): Remove superfluous check.
tmp = gfc_finish_block (&body);
else
{
+ gcc_assert (expr->rank != 0);
gcc_assert (se.ss == gfc_ss_terminator);
gfc_trans_scalarizing_loops (&loop, &body);