From 7aba8abebf67491594a3b6274d441bcbf47d894b Mon Sep 17 00:00:00 2001 From: Thomas Koenig Date: Fri, 9 Sep 2005 18:21:45 +0000 Subject: gfortran.h: Add iomsg to gfc_open, gfc_close, gfc_filepos, gfc_inquire and gfc_dt. 2005-09-09 Thomas Koenig * gfortran.h: Add iomsg to gfc_open, gfc_close, gfc_filepos, gfc_inquire and gfc_dt. * dump-parse-tree.c (gfc_show_code_node): Add iomsg for open, close, file positioning, inquire and namelist. * io.c (io_tag): Add tag_iomsg. (resolve_tag): Add standards warning for iomsg. (match_open_element): Add iomsg. (gfc_free_open): Add iomsg. (gfc_resolve_open): Add iomsg. (gfc_free_close): Add iomsg. (match_close_element): Add iomsg. (gfc_resolve_close): Add iomsg. (gfc_free_filepos): Add iomsg. (match_file_element): Add iomsg. (gfc_resolve_filepos): Add iostat and iomsg. (match-dt_element): Add iomsg. (gfc_free_dt): Add iomsg. (gfc_resolve_dt): Add iomsg. (gfc_free_inquire): Add iomsg. (match_inquire_element): Add iomsg. (gfc_resolve_inquire): Add iomsg. * trans_io.c: Add ioparm_iomsg and ioparm_iomsg_len. (gfc_build_io_library_fndecls): Add iomsg as last field. (gfc_trans_open): Add iomsg. (gfc_trans_close): Add iomsg. (build_fileos): Call set_string for iomsg. (gfc_trans_inquire): Add iomsg. (build_dt): Add iomsg. 2005-09-09 Thomas Koenig * io/io.h: Add iomsg as last field of st_parameter. * runtime/error.c (generate_error): If iomsg is present, copy the message there. 2005-09-09 Thomas Koenig * gfortran.dg/iomsg_1.f90: New test case. From-SVN: r104102 --- libgfortran/io/io.h | 3 +++ 1 file changed, 3 insertions(+) (limited to 'libgfortran/io') diff --git a/libgfortran/io/io.h b/libgfortran/io/io.h index 06825df..6f4023b 100644 --- a/libgfortran/io/io.h +++ b/libgfortran/io/io.h @@ -263,6 +263,9 @@ typedef struct CHARACTER (namelist_name); GFC_INTEGER_4 namelist_read_mode; + /* iomsg */ + CHARACTER (iomsg); + #undef CHARACTER } st_parameter; -- cgit v1.1