From 770caa74d0326e0361be0aa3f12acda5bed21e2a Mon Sep 17 00:00:00 2001
From: Tobias Burnus <burnus@net-b.de>
Date: Sat, 15 Sep 2012 19:22:10 +0200
Subject: [PATCH] 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 | 4 ++++
gcc/fortran/trans-io.c | 1 +
2 files changed, 5 insertions(+)
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 4625c6228073..6259229a25e0 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -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.
diff --git a/gcc/fortran/trans-io.c b/gcc/fortran/trans-io.c
index e607e2debe5d..940129eb05f0 100644
--- a/gcc/fortran/trans-io.c
+++ b/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);
--
GitLab