Imported Upstream version 4.8.1

[platform/upstream/gcc48.git] / gcc / ada / validsw.adb

diff --git a/gcc/ada/validsw.adb b/gcc/ada/validsw.adb
index 1c7d5cf..b37825e 100644 (file)
--- a/gcc/ada/validsw.adb
+++ b/gcc/ada/validsw.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---          Copyright (C) 2001-2007, Free Software Foundation, Inc.         --
+--          Copyright (C) 2001-2012, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -174,12 +174,12 @@ package body Validsw is
             when 'E' =>
                Validity_Check_Components     := False;
 
-            when 'I' =>
-               Validity_Check_In_Params      := False;
-
             when 'F' =>
                Validity_Check_Floating_Point := False;
 
+            when 'I' =>
+               Validity_Check_In_Params      := False;
+
             when 'M' =>
                Validity_Check_In_Out_Params  := False;