diff options
Diffstat (limited to 'gcc/ada/sem_ch6.adb')
| -rw-r--r-- | gcc/ada/sem_ch6.adb | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/gcc/ada/sem_ch6.adb b/gcc/ada/sem_ch6.adb index 8d2b53c50d5..3e4c4b332ea 100644 --- a/gcc/ada/sem_ch6.adb +++ b/gcc/ada/sem_ch6.adb @@ -4480,6 +4480,12 @@ package body Sem_Ch6 is if not Comes_From_Source (S) then null; + -- If the subprogram is at library level, it is not a + -- primitive operation. + + elsif Current_Scope = Standard_Standard then + null; + elsif (Ekind (Current_Scope) = E_Package and then not In_Package_Body (Current_Scope)) or else Overriding |