From: Dave Love Date: Mon, 18 May 1998 11:17:41 +0000 (+0000) Subject: Layout change. X-Git-Tag: prereleases/egcs-1.1-prerelease~1227 X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=c39c7b34c40b4c100ee8c7ef563de35c574ca2f0;p=thirdparty%2Fgcc.git Layout change. From-SVN: r19847 --- diff --git a/gcc/f/ste.c b/gcc/f/ste.c index 7f27c3e54d6b..e35708ef8221 100644 --- a/gcc/f/ste.c +++ b/gcc/f/ste.c @@ -737,8 +737,9 @@ ffeste_io_dolio_ (ffebld expr) num_elements = size_binop (CEIL_DIV_EXPR, TYPE_SIZE (TREE_TYPE (TREE_TYPE (variable))), size); num_elements = size_binop (CEIL_DIV_EXPR, - num_elements, size_int (TYPE_PRECISION - (char_type_node))); + num_elements, + size_int (TYPE_PRECISION + (char_type_node))); num_elements = convert (ffecom_f2c_ftnlen_type_node, num_elements); }