From: Tobias Burnus Date: Tue, 5 Jan 2010 14:15:37 +0000 (+0100) Subject: re PR fortran/42517 (-fcheck=recursion does not work with -fopenmp) X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=653f6dc599d1f0afa1a8be89e948c8aeca875911;p=gcc.git re PR fortran/42517 (-fcheck=recursion does not work with -fopenmp) 2010-01-05 Tobias Burnus PR fortran/42517 * options.c (gfc_post_options): Set -frecursion when -fopenmp is used. From-SVN: r155649 --- diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 6a594255dfe..7de1ba76ba3 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2010-01-05 Tobias Burnus + + PR fortran/42517 + * options.c (gfc_post_options): Set -frecursion + when -fopenmp is used. + 2010-01-05 Tobias Burnus PR fortran/41872 diff --git a/gcc/fortran/options.c b/gcc/fortran/options.c index 43c44db0911..9296a0be667 100644 --- a/gcc/fortran/options.c +++ b/gcc/fortran/options.c @@ -353,18 +353,22 @@ gfc_post_options (const char **pfilename) "implied by -fopenmp", gfc_option.flag_max_stack_var_size); - /* Implied -frecursive; implemented as -fmax-stack-var-size=-1. */ - if (gfc_option.flag_max_stack_var_size == -2 && gfc_option.flag_openmp) + /* Implement -frecursive as -fmax-stack-var-size=-1. */ + if (gfc_option.flag_recursive) gfc_option.flag_max_stack_var_size = -1; + /* Implied -frecursive; implemented as -fmax-stack-var-size=-1. */ + if (gfc_option.flag_max_stack_var_size == -2 && gfc_option.flag_openmp + && gfc_option.flag_automatic) + { + gfc_option.flag_recursive = 1; + gfc_option.flag_max_stack_var_size = -1; + } + /* Set default. */ if (gfc_option.flag_max_stack_var_size == -2) gfc_option.flag_max_stack_var_size = 32768; - /* Implement -frecursive as -fmax-stack-var-size=-1. */ - if (gfc_option.flag_recursive) - gfc_option.flag_max_stack_var_size = -1; - /* Implement -fno-automatic as -fmax-stack-var-size=0. */ if (!gfc_option.flag_automatic) gfc_option.flag_max_stack_var_size = 0;