Layout change.

From-SVN: r19842
This commit is contained in:
Dave Love 1998-05-18 10:47:05 +00:00
parent 9c46106359
commit e75468d280
1 changed files with 2 additions and 1 deletions

View File

@ -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,