From: Janne Blomqvist <jb@gcc.gnu.org>
Date: Sun, 10 Nov 2019 21:25:25 +0000 (+0200)
Subject: Don't print warning when moving to static with -fno-automatic
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=15471d58fe2e8349c391205338176f3fbdaad70c;p=gcc.git

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  <jb@gcc.gnu.org>

	PR fortran/91413
	* trans-decl.c (gfc_finish_var_decl): Don't print warning when
	-fno-automatic is enabled.

From-SVN: r278027
---

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  <jb@gcc.gnu.org>
+
+	PR fortran/91413
+	* trans-decl.c (gfc_finish_var_decl): Don't print warning when
+	-fno-automatic is enabled.
+
 2019-11-10  Paul Thomas  <pault@gcc.gnu.org>
 
 	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;