diff options
Diffstat (limited to 'gcc/ada/sem_ch12.adb')
| -rw-r--r-- | gcc/ada/sem_ch12.adb | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/gcc/ada/sem_ch12.adb b/gcc/ada/sem_ch12.adb index 93e81fd..d05c7b6 100644 --- a/gcc/ada/sem_ch12.adb +++ b/gcc/ada/sem_ch12.adb @@ -40,6 +40,7 @@ with Itypes; use Itypes; with Lib; use Lib; with Lib.Load; use Lib.Load; with Lib.Xref; use Lib.Xref; +with Mutably_Tagged; use Mutably_Tagged; with Nlists; use Nlists; with Namet; use Namet; with Nmake; use Nmake; @@ -11497,6 +11498,10 @@ package body Sem_Ch12 is Error_Msg_N ("illegal discriminant-dependent component for in out parameter", Actual); + elsif Depends_On_Mutably_Tagged_Ext_Comp (Actual) then + Error_Msg_N + ("illegal mutably tagged component for in out parameter", + Actual); end if; -- The actual has to be resolved in order to check that it is a |