diff options
-rw-r--r-- | gcc/ada/sem_prag.adb | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb index 5764992..0eb4450 100644 --- a/gcc/ada/sem_prag.adb +++ b/gcc/ada/sem_prag.adb @@ -31669,8 +31669,7 @@ package body Sem_Prag is Append_New_Elmt (Formal, Subp_Outputs); -- OUT parameters can act as inputs when the related type is - -- tagged, unconstrained array, unconstrained record, or record - -- with unconstrained components. + -- tagged, unconstrained array or unconstrained record. if Ekind (Formal) = E_Out_Parameter and then Is_Unconstrained_Or_Tagged_Item (Formal) |