[Ada] Fix typo in error message about contract cases
authorPiotr Trojanek <trojanek@adacore.com>
Fri, 3 Jul 2020 13:42:53 +0000 (15:42 +0200)
committerPierre-Marie de Rodat <derodat@adacore.com>
Mon, 19 Oct 2020 09:53:37 +0000 (05:53 -0400)
gcc/ada/

* sem_prag.adb (Analyze_Contract_Cases_In_Decl_Part): Fix typo.

gcc/ada/sem_prag.adb

index 52e0e8971e0a6915c7d86815b7b9a4e1f8145d62..b992034c5f3b80844ea1120967e800640303bca1 100644 (file)
@@ -583,7 +583,7 @@ package body Sem_Prag is
       --  Otherwise the pragma is illegal
 
       else
-         Error_Msg_N ("wrong syntax for constract cases", N);
+         Error_Msg_N ("wrong syntax for contract cases", N);
       end if;
 
       Set_Is_Analyzed_Pragma (N);