diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-05-06 22:32:33 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-05-06 22:32:33 +0000 |
| commit | f96d606f3a2b4cb25486d8c7dac01be2d4963e00 (patch) | |
| tree | 692f8a6ad04a87c1f8a06248b56be1c7dde36e8f /gcc/c-cppbuiltin.c | |
| parent | cb13c28858b9c5c243241121206578b5f9f2827c (diff) | |
| download | gcc-f96d606f3a2b4cb25486d8c7dac01be2d4963e00.zip gcc-f96d606f3a2b4cb25486d8c7dac01be2d4963e00.tar.gz gcc-f96d606f3a2b4cb25486d8c7dac01be2d4963e00.tar.bz2 | |
re PR fortran/31201 (Too large unit number generates wrong code)
2007-05-06 Jerry DeLisle <jvdelisle@gcc.gnu.org>
Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
PR fortran/31201
* gfortran.h: Add runtime error codes from libgfortran.h. Define
MAX_UNIT_NUMBER.
* trans.c (gfc_trans_runtime_check): Update the format of runtime error
messages to match library runtime errors. Use call to new library
function runtime_error_at().
* trans.h: Add prototype for new function gfc_trans_io_runtime_check.
Add declaration for library functions runtime_error_at and
generate_error.
* trans_io.c (gfc_trans_io_runtime_check): New function.
(set_parameter_value): Add error checking for UNIT numbers.
(set_parameter_ref): Initialize the users variable to zero.
(gfc_trans_open): Move setting of unit number to after setting of common
flags so that runtime error trapping can be detected.
(gfc_trans_close): Likewise. (build_filepos): Likewise.
(gfc_trans_inquire): Likewise. (build_dt): Likewise.
* trans-decl.c: Add declarations for runtime_error_at and
generate_error. (gfc_build_builtin_function_decls): Build function
declarations for runtime_error_at and generate_error.
Co-Authored-By: Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
From-SVN: r124480
Diffstat (limited to 'gcc/c-cppbuiltin.c')
0 files changed, 0 insertions, 0 deletions