diff options
| author | Tobias Burnus <burnus@net-b.de> | 2009-05-13 16:52:54 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2009-05-13 16:52:54 +0200 |
| commit | 5c71a5e0e9701e4e1da5282dfe00ae578f340e79 (patch) | |
| tree | c7d77d5b3f969373e3d1ee3b00b09bd0a6efe6bf /gcc/fortran/parse.c | |
| parent | ebaa6ea7adb2e6107bdd06d4c8f89c8f614550bc (diff) | |
| download | gcc-5c71a5e0e9701e4e1da5282dfe00ae578f340e79.zip gcc-5c71a5e0e9701e4e1da5282dfe00ae578f340e79.tar.gz gcc-5c71a5e0e9701e4e1da5282dfe00ae578f340e79.tar.bz2 | |
re PR fortran/34153 (Debugging: Cannot set breakpoint in comment lines or "END PROGRAM")
2009-05-13 Tobias Burnus <burnus@net-b.de>
PR fortran/34153
* gfortran.h (gfc_exec_op): Add EXEC_END_PROCEDURE.
* dump-parse-tree.c (show_code_node): Use EXEC_END_PROCEDURE.
* trans.c (gfc_trans_code): Ditto.
* resolve.c (resolve_code): Ditto.
* st.c (gfc_free_statement): Ditto.
From-SVN: r147477
Diffstat (limited to 'gcc/fortran/parse.c')
| -rw-r--r-- | gcc/fortran/parse.c | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/gcc/fortran/parse.c b/gcc/fortran/parse.c index d387f54..3c54c46 100644 --- a/gcc/fortran/parse.c +++ b/gcc/fortran/parse.c @@ -1496,6 +1496,11 @@ accept_statement (gfc_statement st) new_st.op = EXEC_RETURN; add_statement (); } + else + { + new_st.op = EXEC_END_PROCEDURE; + add_statement (); + } break; |