parent
9c46106359
commit
e75468d280
|
@ -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,
|
||||
|
|
Loading…
Reference in New Issue