[multiple changes]

Sun Apr 26 09:05:50 1998  Craig Burley  <burley@gnu.org>
        * com.c (ffecom_char_enhance_arg_): Wrap the upper bound
        (the PARM_DECL specifying the length of the CHARACTER*(*)
        dummy arg) in a variable_size invocation, to prevent
        dwarf2out.c crashing when compiling code with -g.
Sat Apr 18 05:03:21 1998  Craig Burley  <burley@gnu.org>
        * com.c (ffecom_check_size_overflow_): Ignore overflow
        as well if dummy argument.

From-SVN: r19740

diff --git a/gcc/f/com.c b/gcc/f/com.c
index 75b7274ae558eb20e4dfe34ddc9bd43294d0ff84..c10d6fef6ff8628e66d0b67ccbace5b1a1e78aa7 100644 (file)
--- a/gcc/f/com.c
+++ b/gcc/f/com.c
@@ -2027,8 +2027,8 @@ 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_INT_CST_HIGH (TYPE_SIZE (type)) != 0))
+                    || TREE_OVERFLOW (TYPE_SIZE (type)))))
     {
       ffebad_start (FFEBAD_ARRAY_LARGE);
       ffebad_string (ffesymbol_text (s));
@@ -2074,7 +2074,7 @@ ffecom_char_enhance_arg_ (tree *xtype, ffesymbol s)
   if (sz == FFETARGET_charactersizeNONE)
     {
       assert (tlen != NULL_TREE);
-      highval = tlen;
+      highval = variable_size (tlen);
     }
   else
     {