+2007-01-25 Manuel Lopez-Ibanez <manu@gcc.gnu.org>
+
+ PR fortran/30437
+ * lang.opt (Wall): Remove RejectNegative.
+ * options.c (gfc_handle_option): Wall can be disabled.
+ (set_Wall): Add a parameter for disabling Wall.
+
2007-01-23 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/30532
/* Set the options for -Wall. */
static void
-set_Wall (void)
+set_Wall (int setting)
{
- gfc_option.warn_aliasing = 1;
- gfc_option.warn_ampersand = 1;
- gfc_option.warn_line_truncation = 1;
- gfc_option.warn_nonstd_intrinsics = 1;
- gfc_option.warn_surprising = 1;
- gfc_option.warn_tabs = 0;
- gfc_option.warn_underflow = 1;
- gfc_option.warn_character_truncation = 1;
-
- set_Wunused (1);
- warn_return_type = 1;
- warn_switch = 1;
+ gfc_option.warn_aliasing = setting;
+ gfc_option.warn_ampersand = setting;
+ gfc_option.warn_line_truncation = setting;
+ gfc_option.warn_nonstd_intrinsics = setting;
+ gfc_option.warn_surprising = setting;
+ gfc_option.warn_tabs = !setting;
+ gfc_option.warn_underflow = setting;
+ gfc_option.warn_character_truncation = setting;
+
+ set_Wunused (setting);
+ warn_return_type = setting;
+ warn_switch = setting;
/* We save the value of warn_uninitialized, since if they put
-Wuninitialized on the command line, we need to generate a
warning about not using it without also specifying -O. */
-
- if (warn_uninitialized != 1)
+ if (setting == 0)
+ warn_uninitialized = 0;
+ else if (warn_uninitialized != 1)
warn_uninitialized = 2;
}
break;
case OPT_Wall:
- set_Wall ();
+ set_Wall (value);
break;
case OPT_Waliasing:
+2007-01-25 Manuel Lopez-Ibanez <manu@gcc.gnu.org>
+
+ PR fortran/30437
+ * gcc.dg/Wall.c: New.
+ * gcc.dg/Wno-all.c: New.
+ * gfortran.dg/Wall.f90: New.
+ * gfortran.dg/Wno-all.f90: New.
+
2007-01-24 Geoffrey Keating <geoffk@apple.com>
* gcc.target/powerpc/darwin-ehreturn-1.c: New.
--- /dev/null
+/* PR 30437: Test negative of -Wall
+ Don't change this without changing Wall.c as well. */
+/* { dg-do compile } */
+/* { dg-options "-Wall -Wno-all" } */
+
+void foo()
+{
+ int a;
+ 5 * (a == 1) | (a == 2); /* { dg-bogus "no effect" "no effect" } */
+}
+
--- /dev/null
+! PR 30437 Test for negative Wall
+! { dg-do run }
+! { dg-options "-Wall -Wno-all" }
+program main
+ character (len=40) &
+ c
+ c = "Hello, &
+ world!" ! { dg-bogus "Warning: Missing '&' in continued character constant" }
+ if (c.ne.&
+ "Hello, world!")&
+ call abort();end program main
+