diff options
| author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2020-06-29 23:11:06 +0200 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2020-06-29 23:11:30 +0200 |
| commit | 95cdcf701dad826f225d6413b59650f181954399 (patch) | |
| tree | 03f4708f939f322b199be542123f16d20d65da8c /gcc/fortran | |
| parent | ace60939fd27271fe3b3e53621eca80c7357836c (diff) | |
| download | gcc-95cdcf701dad826f225d6413b59650f181954399.zip gcc-95cdcf701dad826f225d6413b59650f181954399.tar.gz gcc-95cdcf701dad826f225d6413b59650f181954399.tar.bz2 | |
Do not generate recursion check for compiler-generated procedures.
This one-line fix removes a check for recursion for procedures
which are compiler-generated, such as finalizers or deallocation.
These need to be recursive, even if the user code should not be.
gcc/fortran/ChangeLog:
PR fortran/95743
* trans-decl.c (gfc_generate_function_code): Do not generate
recursion check for compiler-generated procedures.
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/trans-decl.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c index e10122e..769ab20 100644 --- a/gcc/fortran/trans-decl.c +++ b/gcc/fortran/trans-decl.c @@ -6789,7 +6789,7 @@ gfc_generate_function_code (gfc_namespace * ns) || (sym->attr.entry_master && sym->ns->entries->sym->attr.recursive); if ((gfc_option.rtcheck & GFC_RTCHECK_RECURSION) - && !is_recursive && !flag_recursive) + && !is_recursive && !flag_recursive && !sym->attr.artificial) { char * msg; |