On 24/09/2019 14:53, Bernhard Reutner-Fischer wrote:
On Tue, 24 Sep 2019 12:12:04 +0100
Mark Eggleston <mark.eggles...@codethink.co.uk> wrote:

@@ -411,7 +411,7 @@ gfc_post_options (const char **pfilename)
         && flag_max_stack_var_size != 0)
       gfc_warning_now (0, "Flag %<-fno-automatic%> overwrites 
%<-fmax-stack-var-size=%d%>",
                     flag_max_stack_var_size);
-  else if (!flag_automatic && flag_recursive)
+  else if (!flag_automatic && flag_recursive && warn_overwrite_recursive)
       gfc_warning_now (0, "Flag %<-fno-automatic%> overwrites 
%<-frecursive%>");
     else if (!flag_automatic && flag_openmp)
       gfc_warning_now (0, "Flag %<-fno-automatic%> overwrites %<-frecursive%> 
implied by "

Doesn't look right to me. Do you want
gfc_warning_now (OPT_Woverwrite_recursive, "Flag ...
instead?
Done.
by "instead" i mean you to leave the if unchanged.
I didn't realise that's how it worked. That's cleaner. Once fixed OK for commit?

thanks,

--
https://www.codethink.co.uk/privacy.html

Reply via email to