diff options
| author | Dave Love <fx@gcc.gnu.org> | 1998-05-18 10:47:05 +0000 |
|---|---|---|
| committer | Dave Love <fx@gcc.gnu.org> | 1998-05-18 10:47:05 +0000 |
| commit | e75468d2801c70ad9985c5393632758b53db4b58 (patch) | |
| tree | 3c5d673eada308b45be54ca7feaa906750cfeb02 /gcc/f/ste.c | |
| parent | 9c461063591112aa640143bb62c901db27a1ee98 (diff) | |
| download | gcc-e75468d2801c70ad9985c5393632758b53db4b58.zip gcc-e75468d2801c70ad9985c5393632758b53db4b58.tar.gz gcc-e75468d2801c70ad9985c5393632758b53db4b58.tar.bz2 | |
Layout change.
From-SVN: r19842
Diffstat (limited to 'gcc/f/ste.c')
| -rw-r--r-- | gcc/f/ste.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/f/ste.c b/gcc/f/ste.c index e096542..7f27c3e 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, |