diff options
Diffstat (limited to 'gcc/ada/sem_ch13.adb')
| -rw-r--r-- | gcc/ada/sem_ch13.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/ada/sem_ch13.adb b/gcc/ada/sem_ch13.adb index 352742aeae3..0fe36354644 100644 --- a/gcc/ada/sem_ch13.adb +++ b/gcc/ada/sem_ch13.adb @@ -3926,7 +3926,8 @@ package body Sem_Ch13 is return; -- A stream subprogram for an interface type must be a null - -- procedure (RM 13.13.2 (38/3)). + -- procedure (RM 13.13.2 (38/3)). Note that the class-wide type + -- of an interface is not an interface type (3.9.4 (6.b/2)). elsif Is_Interface (U_Ent) and then not Is_Class_Wide_Type (U_Ent) |