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

gcc/f/ChangeLog

+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.

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