diff options
Diffstat (limited to 'gcc/ada/sem_case.adb')
| -rw-r--r-- | gcc/ada/sem_case.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/sem_case.adb b/gcc/ada/sem_case.adb index 0a342f9ba78..840214d2c64 100644 --- a/gcc/ada/sem_case.adb +++ b/gcc/ada/sem_case.adb @@ -239,7 +239,7 @@ package body Sem_Case is " alternatives must cover base type", Expr, Expr); else - Error_Msg_N ("expression is not static," & + Error_Msg_N ("subtype of expression is not static," & " alternatives must cover base type!", Expr); end if; @@ -249,8 +249,8 @@ package body Sem_Case is elsif not Is_Entity_Name (Expr) then Error_Msg_N - ("expression is not static, alternatives must cover base type!", - Expr); + ("subtype of expression is not static, " & + "alternatives must cover base type!", Expr); end if; end Explain_Non_Static_Bound; |