2009-11-30 Thomas Quinot <quinot@adacore.com>

[pf3gnuchains/gcc-fork.git] / gcc / ada / sem_prag.adb

diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb
index 9e9df30..2aa6c2e 100644 (file)
--- a/gcc/ada/sem_prag.adb
+++ b/gcc/ada/sem_prag.adb
@@ -5228,10 +5228,10 @@ package body Sem_Prag is
                Exp : Node_Id;
 
             begin
-               if No (Arg2) then
-                     Error_Pragma_Arg
-                       ("pragma requires at least two arguments", Arg1);
+               --  Second unanalyzed parameter is optional.
 
+               if No (Arg2) then
+                  null;
                else
                   Arg := Next (Arg2);
                   while Present (Arg) loop