[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

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
     {