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 da29a9d8f42058e7e70fed74ed778ee6a36731c2..f1ad5e1f2b5bc0a563f53ec584fdd318c18c2f93 100644 (file)
--- 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 06591a31a3ea3cd1bd60800eaa242ce635ecd825..47ffd78eee600b28f686cd1865adc086c3197170 100644 (file)
--- 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;
     }