From: kargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Wed, 25 Nov 2015 15:04:33 +0000 (+0000)
Subject: 2015-11-25  Steven G. Kargl  <kargl@gcc.gnu.org>
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c112228a6f016e9c1c078033e03c5eba2c9eeb19;p=thirdparty%2Fgcc.git

2015-11-25  Steven G. Kargl  <kargl@gcc.gnu.org>

    PR fortran/68227
    * trans-stmt.c (gfc_do_allocate): Convert gcc_assert argument into
    into part of conditional statement.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@230873 138bc75d-0d04-0410-961f-82ee72b054a4
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index da29a9d8f420..f1ad5e1f2b5b 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,9 @@
+2015-11-25  Steven G. Kargl  <kargl@gcc.gnu.org>
+
+	PR fortran/68227
+	* trans-stmt.c (gfc_do_allocate): Convert gcc_assert argument into
+	into part of conditional statement.
+
 2015-11-25  Ilmir Usmanov <me@ilmir.us>
 	    Cesar Philippidis  <cesar@codesourcery.com>
 
diff --git a/gcc/fortran/trans-stmt.c b/gcc/fortran/trans-stmt.c
index 06591a31a3ea..47ffd78eee60 100644
--- a/gcc/fortran/trans-stmt.c
+++ b/gcc/fortran/trans-stmt.c
@@ -3125,9 +3125,8 @@ gfc_do_allocate (tree bytesize, tree size, tree * pdata, stmtblock_t * pblock,
 
   type = build_range_type (gfc_array_index_type, gfc_index_zero_node, tmp);
   type = build_array_type (elem_type, type);
-  if (gfc_can_put_var_on_stack (bytesize))
+  if (gfc_can_put_var_on_stack (bytesize) && INTEGER_CST_P (size))
     {
-      gcc_assert (INTEGER_CST_P (size));
       tmpvar = gfc_create_var (type, "temp");
       *pdata = NULL_TREE;
     }