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

gcc/fortran/ChangeLog

 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.

gcc/fortran/trans-io.c

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