diff options
| author | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-07-04 01:36:31 +0000 |
|---|---|---|
| committer | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-07-04 01:36:31 +0000 |
| commit | 02183b453439daa65fc2bb205afef9428f106023 (patch) | |
| tree | f2a85db2fbef8080a2e4fd3757e25014aaf79285 /libgfortran/libgfortran.h | |
| parent | 3b146c36e3f5c94d0b2f5b3a2a4a9667d573ad4c (diff) | |
| download | gcc-02183b453439daa65fc2bb205afef9428f106023.tar.gz | |
2006-07-03 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/27704
* runtime/error.c (notify_std): Pass common flags into function. Use
flags to show locus of error or warning.
* libgfortran.h: Add enum try. Add prototype for notify_std.
* io/open.c (edit_modes): Allow status="old" and add extension to
allow status="scratch"
*io/list_read.c (nml_read_obj): Update call to notify_std.
*io/io.h: Remove enum try and prototype for notify_std.
*io/transfer.c (read_sf): Update call to notify_std.
*io/format.c (parse_format_list): Update call to notify_std.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@115168 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/libgfortran.h')
| -rw-r--r-- | libgfortran/libgfortran.h | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/libgfortran/libgfortran.h b/libgfortran/libgfortran.h index cb3d6589c33..5dd2a51e1e0 100644 --- a/libgfortran/libgfortran.h +++ b/libgfortran/libgfortran.h @@ -414,6 +414,11 @@ typedef enum { SILENT, WARNING, ERROR } notification; +/* This is returned by notify_std and several io functions. */ +typedef enum +{ SUCCESS = 1, FAILURE } +try; + /* The filename and line number don't go inside the globals structure. They are set by the rest of the program and must be linked to. */ @@ -492,6 +497,9 @@ internal_proto(translate_error); extern void generate_error (struct st_parameter_common *, int, const char *); internal_proto(generate_error); +extern try notify_std (struct st_parameter_common *, int, const char *); +internal_proto(notify_std); + /* fpu.c */ extern void set_fpu (void); |