2013-02-06 Robert Dewar <dewar@adacore.com>

	* sem_prag.adb, sem_ch6.adb, prj-conf.adb, erroutc.adb: Minor
	reformatting.



git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@195787 138bc75d-0d04-0410-961f-82ee72b054a4

1 files changed, 11 insertions, 4 deletions

diff --git a/gcc/ada/erroutc.adb b/gcc/ada/erroutc.adb
index bb4995da9ee..8a1050fdd8a 100644
--- a/gcc/ada/erroutc.adb
+++ b/gcc/ada/erroutc.adb
@@ -1276,19 +1276,26 @@ package body Erroutc is
       for J in Specific_Warnings.First .. Specific_Warnings.Last loop
          declare
             SWE : Specific_Warning_Entry renames Specific_Warnings.Table (J);
+
          begin
             if not SWE.Config then
+
+               --  Warn for unmatched Warnings (Off, ...)
+
                if SWE.Open then
                   Eproc.all
                     ("?pragma Warnings Off with no matching Warnings On",
                      SWE.Start);
 
-               --  Do not issue this warning for -Wxxx messages since the
-               --  back-end doesn't report the information.
+               --  Warn for ineffective Warnings (Off, ..)
 
                elsif not SWE.Used
-                 and then not (SWE.Msg'Length > 2
-                                 and then SWE.Msg (1 .. 2) = "-W")
+
+                 --  Do not issue this warning for -Wxxx messages since the
+                 --  back-end doesn't report the information.
+
+                 and then not
+                   (SWE.Msg'Length > 2 and then SWE.Msg (1 .. 2) = "-W")
                then
                   Eproc.all
                     ("?no warning suppressed by this pragma", SWE.Start);