diff options
Diffstat (limited to 'gcc/ada/sem_ch5.adb')
| -rw-r--r-- | gcc/ada/sem_ch5.adb | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/gcc/ada/sem_ch5.adb b/gcc/ada/sem_ch5.adb index 8402e33..fe7ffbc 100644 --- a/gcc/ada/sem_ch5.adb +++ b/gcc/ada/sem_ch5.adb @@ -1832,6 +1832,11 @@ package body Sem_Ch5 is Set_Ekind (Id, E_Loop_Parameter); Set_Etype (Id, Etype (DS)); + + -- Treat a range as an implicit reference to the type, to + -- inhibit spurious warnings. + + Generate_Reference (Base_Type (Etype (DS)), N, ' '); Set_Is_Known_Valid (Id, True); -- The loop is not a declarative part, so the only entity |