diff options
Diffstat (limited to 'gcc/ada/freeze.adb')
| -rw-r--r-- | gcc/ada/freeze.adb | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/gcc/ada/freeze.adb b/gcc/ada/freeze.adb index 122d6b23cf6..6c283e4fdbf 100644 --- a/gcc/ada/freeze.adb +++ b/gcc/ada/freeze.adb @@ -1875,14 +1875,16 @@ package body Freeze is if Ada_Version < Ada_2012 then Error_Msg_N ("current instance must be a limited type", - Prefix (N)); + Prefix (N)); else Error_Msg_N - ("current instance must be an immutably limited " & - "type (RM-2012, 7.5 (8.1/3))", - Prefix (N)); + ("current instance must be an immutably limited " + & "type (RM-2012, 7.5 (8.1/3))", + Prefix (N)); end if; + return Abandon; + else return OK; end if; |