From 15471d58fe2e8349c391205338176f3fbdaad70c Mon Sep 17 00:00:00 2001 From: Janne Blomqvist Date: Sun, 10 Nov 2019 23:25:25 +0200 Subject: [PATCH] Don't print warning when moving to static with -fno-automatic As part of PR 91413, GFortran now prints a warning when a variable is moved from the stack to static storage. However, when the user explicitly specifies that all local variables should be put in static storage with the -fno-automatic option, don't print this warning. Regtested on x86_64-pc-linux-gnu, committed as obvious. gcc/fortran/ChangeLog: 2019-11-10 Janne Blomqvist PR fortran/91413 * trans-decl.c (gfc_finish_var_decl): Don't print warning when -fno-automatic is enabled. From-SVN: r278027 --- gcc/fortran/ChangeLog | 6 ++++++ gcc/fortran/trans-decl.c | 19 ++++++++++--------- 2 files changed, 16 insertions(+), 9 deletions(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 33e0f18aeef..2031688474b 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2019-11-10 Janne Blomqvist + + PR fortran/91413 + * trans-decl.c (gfc_finish_var_decl): Don't print warning when + -fno-automatic is enabled. + 2019-11-10 Paul Thomas PR fortran/92123 diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c index ffa61111316..76e1c7a8453 100644 --- a/gcc/fortran/trans-decl.c +++ b/gcc/fortran/trans-decl.c @@ -746,15 +746,16 @@ gfc_finish_var_decl (tree decl, gfc_symbol * sym) || sym->attr.allocatable) && !DECL_ARTIFICIAL (decl)) { - gfc_warning (OPT_Wsurprising, - "Array %qs at %L is larger than limit set by" - " %<-fmax-stack-var-size=%>, moved from stack to static" - " storage. This makes the procedure unsafe when called" - " recursively, or concurrently from multiple threads." - " Consider using %<-frecursive%>, or increase the" - " %<-fmax-stack-var-size=%> limit, or change the code to" - " use an ALLOCATABLE array.", - sym->name, &sym->declared_at); + if (flag_max_stack_var_size > 0) + gfc_warning (OPT_Wsurprising, + "Array %qs at %L is larger than limit set by" + " %<-fmax-stack-var-size=%>, moved from stack to static" + " storage. This makes the procedure unsafe when called" + " recursively, or concurrently from multiple threads." + " Consider using %<-frecursive%>, or increase the" + " %<-fmax-stack-var-size=%> limit, or change the code to" + " use an ALLOCATABLE array.", + sym->name, &sym->declared_at); TREE_STATIC (decl) = 1; -- 2.30.2