This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
Re: [gfortran] Assorted matching fixes, fix No 1 from PR16404
- From: Paul Brook <paul at codesourcery dot com>
- To: fortran at gcc dot gnu dot org
- Cc: Tobias Schlüter <tobias dot schlueter at physik dot uni-muenchen dot de>,patch <gcc-patches at gcc dot gnu dot org>
- Date: Fri, 16 Jul 2004 00:07:29 +0100
- Subject: Re: [gfortran] Assorted matching fixes, fix No 1 from PR16404
- Organization: CodeSourcery
- References: <40F434A5.9020009@physik.uni-muenchen.de>
> 2004-07-13 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
>
> * PR fortran/16404
> (parts ported from g95)
> * parse.h (gfc_state_data): New field do_variable.
> (gfc_check_do_variable): Add prototype.
> * parse.c (push_state): Initialize field 'do_variable'.
> (gfc_check_do_variable): New function.
> (parse_do_block): Remember do iterator variable.
> (parse_file): Initialize field 'do_variable'.
> * match.c (gfc_match_assignment, gfc_match_do,
> gfc_match_allocate, gfc_match_nullify, gfc_match_deallocate):
> Add previously missing checks.
> (gfc_match_return): Reformat error message.
> * io.c (match_out_tag): New function.
> (match_open_element, match_close_element,
> match_file_element, match_dt_element): Call match_out_tag
> instead of match_vtag where appropriate.
> (match_io_iterator, match_io_element): Add missing check.
> (match_io): Reformat error message.
> (match_inquire_element): Call match_out_tag where appropriate.
Ok.
Paul