diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2015-01-23 01:59:23 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2015-01-23 01:59:23 +0000 |
| commit | e344505cec510fe08af6c3263fc10619295ccd45 (patch) | |
| tree | 390459fc3cf8fd7ea5710e1ad2927e7000f97a36 /gcc/gcc.c | |
| parent | c92e723dc86c92732a565a6879b6608b1180ec49 (diff) | |
| download | gcc-e344505cec510fe08af6c3263fc10619295ccd45.zip gcc-e344505cec510fe08af6c3263fc10619295ccd45.tar.gz gcc-e344505cec510fe08af6c3263fc10619295ccd45.tar.bz2 | |
re PR fortran/61933 (Inquire on internal units)
2015-01-22 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/61933
* libgfortran.h:
* trans-io.c (set_parameter_value): Delete use of has_iostat.
Redefine to not generate any runtime error check calls.
(set_parameter_value_chk): Rename of the former
set_parameter_value with the runtime error checks and fix
whitespace. (set_parameter_value_inquire): New function that
builds a runtime conditional block to set the INQUIRE
common parameter block unit number to -2 when unit numbers
exceed positive KIND=4 limits. (gfc_trans_open): Whitespace.
For unit, use the renamed set_parameter_value_chk.
(gfc_trans_close): Likewise use renamed function.
(build_filepos): Whitespace and use renamed function.
(gfc_trans_inquire): Whitespace and for unit use
set_parameter_value and set_parameter_value_inquire.
(gfc_trans_wait): Remove p->iostat from call to
set_parameter_value. Use new set_parameter_value_chk for unit.
(build_dt): Use the new set_parameter_value without p->iostat
and fix whitespace. Use set_parameter_value_chk for unit.
From-SVN: r220023
Diffstat (limited to 'gcc/gcc.c')
0 files changed, 0 insertions, 0 deletions