diff options
| author | fx <fx@138bc75d-0d04-0410-961f-82ee72b054a4> | 1998-05-18 11:17:41 +0000 |
|---|---|---|
| committer | fx <fx@138bc75d-0d04-0410-961f-82ee72b054a4> | 1998-05-18 11:17:41 +0000 |
| commit | cc67321c3905021cd655b5b7d9bafc85ea82fa20 (patch) | |
| tree | b00ad0b675a6559799c2fa35332d09d6da0d8993 /gcc/f/ste.c | |
| parent | 650d13aebda35e189bfdb7b79f73a83e81fb4724 (diff) | |
| download | gcc-cc67321c3905021cd655b5b7d9bafc85ea82fa20.tar.gz | |
Layout change.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@19847 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/f/ste.c')
| -rw-r--r-- | gcc/f/ste.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gcc/f/ste.c b/gcc/f/ste.c index 7f27c3e54d6..e35708ef822 100644 --- a/gcc/f/ste.c +++ b/gcc/f/ste.c @@ -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); } |