From e75468d2801c70ad9985c5393632758b53db4b58 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Mon, 18 May 1998 10:47:05 +0000 Subject: [PATCH] Layout change. From-SVN: r19842 --- gcc/f/ste.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/gcc/f/ste.c b/gcc/f/ste.c index e09654232b60..7f27c3e54d6b 100644 --- a/gcc/f/ste.c +++ b/gcc/f/ste.c @@ -636,7 +636,8 @@ ffeste_io_dofio_ (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, + num_elements = size_binop (CEIL_DIV_EXPR, + num_elements, size_int (TYPE_PRECISION (char_type_node))); num_elements = convert (ffecom_f2c_ftnlen_type_node, -- 2.47.3