com.c (ffecom_check_size_overflow_): Only check for TREE_OVERFLOW.

2001-10-24  Toon Moene  <toon@moene.indiv.nluug.nl>

	* com.c (ffecom_check_size_overflow_): Only check for TREE_OVERFLOW.

From-SVN: r46473

diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index b0fa255dc9caf40a8ac8f3ca11495465e5d7e181..e1e4f83c42c00147152d2f26136dcf511c4d4823 100644 (file)
--- a/gcc/f/ChangeLog
+++ b/gcc/f/ChangeLog
@@ -1,3 +1,7 @@
+2001-10-24  Toon Moene  <toon@moene.indiv.nluug.nl>
+
+       * com.c (ffecom_check_size_overflow_): Only check for TREE_OVERFLOW.
+
 Tue Oct 23 14:01:27 2001  Richard Kenner  <kenner@vlsi1.ultra.nyu.edu>
 
        * com.c (LANG_HOOKS_GET_ALIAS_SET): New macro.

diff --git a/gcc/f/com.c b/gcc/f/com.c
index ccff61a9d68e303955c869192044ef58f4c4a65e..a5df6f7db2d83f5e9473185b8f8c492a7895cff4 100644 (file)
--- a/gcc/f/com.c
+++ b/gcc/f/com.c
@@ -2266,8 +2266,7 @@ ffecom_check_size_overflow_ (ffesymbol s, tree type, bool dummy)
     return type;
 
   if ((tree_int_cst_sgn (TYPE_SIZE (type)) < 0)
-      || (!dummy && (((TREE_INT_CST_HIGH (TYPE_SIZE (type)) != 0))
-                    || TREE_OVERFLOW (TYPE_SIZE (type)))))
+      || (!dummy && TREE_OVERFLOW (TYPE_SIZE (type))))
     {
       ffebad_start (FFEBAD_ARRAY_LARGE);
       ffebad_string (ffesymbol_text (s));