gcc/ada/

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

diff --git a/gcc/ada/checks.adb b/gcc/ada/checks.adb
index 1dfd0de..3851254 100644 (file)
--- a/gcc/ada/checks.adb
+++ b/gcc/ada/checks.adb
@@ -2769,7 +2769,7 @@ package body Checks is
 
       --  Check that a null-excluding component, formal or object is not being
       --  assigned a null value. Otherwise generate a warning message and
-      --  replace Expression (N) by an N_Contraint_Error node.
+      --  replace Expression (N) by an N_Constraint_Error node.
 
       if K /= N_Function_Specification then
          Expr := Expression (N);