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 | |
| 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')
| -rw-r--r-- | gcc/fortran/ChangeLog | 10 | ||||
| -rw-r--r-- | gcc/fortran/dump-parse-tree.c | 3 | ||||
| -rw-r--r-- | gcc/fortran/gfortran.h | 2 | ||||
| -rw-r--r-- | gcc/fortran/parse.c | 5 | ||||
| -rw-r--r-- | gcc/fortran/resolve.c | 1 | ||||
| -rw-r--r-- | gcc/fortran/st.c | 1 | ||||
| -rw-r--r-- | gcc/fortran/trans.c | 1 |
7 files changed, 22 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 2994acf..1ca8b68 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,13 @@ +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. + * parse.c (accept_statement): Ditto. + 2009-05-12 Tobias Burnus <burnus@net-b.de> PR fortran/40110 diff --git a/gcc/fortran/dump-parse-tree.c b/gcc/fortran/dump-parse-tree.c index e007a54..51d76f0 100644 --- a/gcc/fortran/dump-parse-tree.c +++ b/gcc/fortran/dump-parse-tree.c @@ -1148,6 +1148,9 @@ show_code_node (int level, gfc_code *c) switch (c->op) { + case EXEC_END_PROCEDURE: + break; + case EXEC_NOP: fputs ("NOP", dumpfile); break; diff --git a/gcc/fortran/gfortran.h b/gcc/fortran/gfortran.h index fad49c4..73b2178 100644 --- a/gcc/fortran/gfortran.h +++ b/gcc/fortran/gfortran.h @@ -1893,7 +1893,7 @@ typedef enum EXEC_ENTRY, EXEC_PAUSE, EXEC_STOP, EXEC_CONTINUE, EXEC_INIT_ASSIGN, EXEC_IF, EXEC_ARITHMETIC_IF, EXEC_DO, EXEC_DO_WHILE, EXEC_SELECT, EXEC_FORALL, EXEC_WHERE, EXEC_CYCLE, EXEC_EXIT, EXEC_CALL_PPC, - EXEC_ALLOCATE, EXEC_DEALLOCATE, + EXEC_ALLOCATE, EXEC_DEALLOCATE, EXEC_END_PROCEDURE, EXEC_OPEN, EXEC_CLOSE, EXEC_WAIT, EXEC_READ, EXEC_WRITE, EXEC_IOLENGTH, EXEC_TRANSFER, EXEC_DT_END, EXEC_BACKSPACE, EXEC_ENDFILE, EXEC_INQUIRE, EXEC_REWIND, EXEC_FLUSH, 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; diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index b7550f5..43044ef 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -6938,6 +6938,7 @@ resolve_code (gfc_code *code, gfc_namespace *ns) break; case EXEC_INIT_ASSIGN: + case EXEC_END_PROCEDURE: break; case EXEC_ASSIGN: diff --git a/gcc/fortran/st.c b/gcc/fortran/st.c index d0cdb0e..866f9bf 100644 --- a/gcc/fortran/st.c +++ b/gcc/fortran/st.c @@ -94,6 +94,7 @@ gfc_free_statement (gfc_code *p) case EXEC_GOTO: case EXEC_CYCLE: case EXEC_RETURN: + case EXEC_END_PROCEDURE: case EXEC_IF: case EXEC_PAUSE: case EXEC_STOP: diff --git a/gcc/fortran/trans.c b/gcc/fortran/trans.c index 28cb60a..c842ea8 100644 --- a/gcc/fortran/trans.c +++ b/gcc/fortran/trans.c @@ -1056,6 +1056,7 @@ gfc_trans_code (gfc_code * code) { case EXEC_NOP: case EXEC_END_BLOCK: + case EXEC_END_PROCEDURE: res = NULL_TREE; break; |