Index: exp_prag.adb
===================================================================
--- exp_prag.adb	(revision 160705)
+++ exp_prag.adb	(working copy)
@@ -269,8 +269,8 @@
    --------------------------
 
    procedure Expand_Pragma_Check (N : Node_Id) is
-      Loc  : constant Source_Ptr := Sloc (N);
       Cond : constant Node_Id    := Arg2 (N);
+      Loc  : constant Source_Ptr := Sloc (Cond);
       Nam  : constant Name_Id    := Chars (Arg1 (N));
       Msg  : Node_Id;