This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
Re: PATCH: PR fortran/42517: -fcheck=recursion does not work with -fopenmp
- From: Tobias Burnus <burnus at net-b dot de>
- To: "H.J. Lu" <hjl dot tools at gmail dot com>
- Cc: "H.J. Lu" <hongjiu dot lu at intel dot com>, gcc-patches at gcc dot gnu dot org
- Date: Tue, 05 Jan 2010 08:22:10 +0100
- Subject: Re: PATCH: PR fortran/42517: -fcheck=recursion does not work with -fopenmp
- References: <20100104223504.GA17039@lucon.org>
H.J. Lu wrote:
> One gfc_option.flag_openmp check is missing, which leads to libgomp.fortran/recursion1.f90
> Fortran runtime error: Recursive call to nonrecursive procedure 'sub'
> OK for trunk?
OK.
Thanks for the fix!
Tobias
> ---
> 2010-01-04 H.J. Lu <hongjiu.lu@intel.com>
>
> PR fortran/42517
> * trans-decl.c (gfc_generate_function_code): Disable
> -fcheck=recursion when used with -fopenmp.
>
> diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c
> index ce33b2a..e9178f1 100644
> --- a/gcc/fortran/trans-decl.c
> +++ b/gcc/fortran/trans-decl.c
> @@ -4322,7 +4322,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
> - && !gfc_option.flag_recursive)
> + && !gfc_option.flag_recursive && !gfc_option.flag_openmp)
> {
> char * msg;
>
>