[Bug fortran/44602] [F2008] EXIT: Jump to end of construct

["domob at gcc dot gnu dot org" <gcc-bugzilla@gcc.gnu.org>]

------- Comment #6 from domob at gcc dot gnu dot org  2010-09-03 08:02 -------
Subject: Bug 44602

Author: domob
Date: Fri Sep  3 08:01:51 2010
New Revision: 163798

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=163798
Log:
2010-09-03  Daniel Kraft  <d@domob.eu>

        PR fortran/44602
        * gfortran.h (struct gfc_code): Renamed `whichloop' to
        `which_construct' as this is no longer restricted to loops.
        * parse.h (struct gfc_state_data): New field `construct'.
        * match.c (match_exit_cycle): Handle EXIT from non-loops.
        * parse.c (push_state): Set `construct' field.
        * resolve.c (resolve_select_type): Extend comment.
        * trans-stmt.c (gfc_trans_if): Add exit label.
        (gfc_trans_block_construct), (gfc_trans_select): Ditto.
        (gfc_trans_simple_do): Store exit/cycle labels on the gfc_code itself.
        (gfc_trans_do), (gfc_trans_do_while): Ditto.
        (gfc_trans_exit): Use new name `which_construct' instead of
`whichloop'.
        (gfc_trans_cycle): Ditto.
        (gfc_trans_if_1): Use fold_build3_loc instead of fold_build3.

2010-09-03  Daniel Kraft  <d@domob.eu>

        PR fortran/44602
        * gfortran.dg/exit_2.f08; Adapt error messages.
        * gfortran.dg/exit_3.f08: New test.
        * gfortran.dg/exit_4.f08: New test.
        * gfortran.dg/exit_5.f03: New test.

Added:
    trunk/gcc/testsuite/gfortran.dg/exit_3.f08
    trunk/gcc/testsuite/gfortran.dg/exit_4.f08
    trunk/gcc/testsuite/gfortran.dg/exit_5.f03
Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/gfortran.h
    trunk/gcc/fortran/match.c
    trunk/gcc/fortran/parse.c
    trunk/gcc/fortran/parse.h
    trunk/gcc/fortran/resolve.c
    trunk/gcc/fortran/trans-stmt.c
    trunk/gcc/testsuite/ChangeLog
    trunk/gcc/testsuite/gfortran.dg/exit_2.f08


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=44602