Layout change.

From-SVN: r19847
This commit is contained in:
Dave Love 1998-05-18 11:17:41 +00:00
parent 1794ae47e3
commit c39c7b34c4
1 changed files with 3 additions and 2 deletions

View File

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