diff options
Diffstat (limited to 'gcc/fortran/io.c')
| -rw-r--r-- | gcc/fortran/io.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gcc/fortran/io.c b/gcc/fortran/io.c index 10b7e82..0aa31bb 100644 --- a/gcc/fortran/io.c +++ b/gcc/fortran/io.c @@ -4291,9 +4291,10 @@ get_io_list: goto syntax; } - /* See if we want to use defaults for missing exponents in real transfers. */ + /* See if we want to use defaults for missing exponents in real transfers + and other DEC runtime extensions. */ if (flag_dec) - dt->default_exp = 1; + dt->dec_ext = 1; /* A full IO statement has been matched. Check the constraints. spec_end is supplied for cases where no locus is supplied. */ |