diff options
| author | Daniel Kraft <d@domob.eu> | 2010-07-23 11:53:45 +0200 |
|---|---|---|
| committer | Daniel Kraft <domob@gcc.gnu.org> | 2010-07-23 11:53:45 +0200 |
| commit | 61b644c2ae3055e797ba6c4de28888565b667b35 (patch) | |
| tree | 3d969e0ac991bf7dbb5c018e6d1d583e084a1d98 /gcc/fortran/gfortran.h | |
| parent | ed3100b2ed8224bafd294f7c56390daed9bbc2bd (diff) | |
| download | gcc-61b644c2ae3055e797ba6c4de28888565b667b35.zip gcc-61b644c2ae3055e797ba6c4de28888565b667b35.tar.gz gcc-61b644c2ae3055e797ba6c4de28888565b667b35.tar.bz2 | |
re PR fortran/44709 (BLOCK and GOTO/EXIT/CYCLE)
2010-07-23 Daniel Kraft <d@domob.eu>
PR fortran/44709
* gfortran.h (gfc_find_symtree_in_proc): New method.
* symbol.c (gfc_find_symtree_in_proc): New method.
* match.c (match_exit_cycle): Look for loop name also in parent
namespaces within current procedure.
2010-07-23 Daniel Kraft <d@domob.eu>
PR fortran/44709
* gfortran.dg/exit_1.f08: New test.
* gfortran.dg/exit_2.f08: New test.
From-SVN: r162450
Diffstat (limited to 'gcc/fortran/gfortran.h')
| -rw-r--r-- | gcc/fortran/gfortran.h | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/fortran/gfortran.h b/gcc/fortran/gfortran.h index 11ff594..401e501 100644 --- a/gcc/fortran/gfortran.h +++ b/gcc/fortran/gfortran.h @@ -2512,6 +2512,7 @@ gfc_user_op *gfc_get_uop (const char *); gfc_user_op *gfc_find_uop (const char *, gfc_namespace *); void gfc_free_symbol (gfc_symbol *); gfc_symbol *gfc_new_symbol (const char *, gfc_namespace *); +gfc_symtree* gfc_find_symtree_in_proc (const char *, gfc_namespace *); int gfc_find_symbol (const char *, gfc_namespace *, int, gfc_symbol **); int gfc_find_sym_tree (const char *, gfc_namespace *, int, gfc_symtree **); int gfc_get_symbol (const char *, gfc_namespace *, gfc_symbol **); |