OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR fortran/42517 (-fcheck=recursion does not work with -fopenmp)

Browse Source 
2010-01-05  Tobias Burnus  <burnus@net-b.de>

        PR fortran/42517
        * options.c (gfc_post_options): Set -frecursion
        when -fopenmp is used.

From-SVN: r155649
This commit is contained in:
Tobias Burnus 2010-01-05 15:15:37 +01:00 committed by Tobias Burnus
parent b9497ab5ed
commit 653f6dc599
2 changed files with 16 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View File

@ -1,3 +1,9 @@
2010-01-05 Tobias Burnus <burnus@net-b.de>
PR fortran/42517
* options.c (gfc_post_options): Set -frecursion
when -fopenmp is used.
2010-01-05 Tobias Burnus <burnus@net-b.de>
PR fortran/41872

16
gcc/fortran/options.c
View File

@ -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;