diff options
Diffstat (limited to 'gcc/ada/sprint.adb')
| -rw-r--r-- | gcc/ada/sprint.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/sprint.adb b/gcc/ada/sprint.adb index 3951b57..a357fb2 100644 --- a/gcc/ada/sprint.adb +++ b/gcc/ada/sprint.adb @@ -1333,7 +1333,7 @@ package body Sprint is Write_Str (" for "); Write_Id (Defining_Identifier (Node)); Write_Str (" in "); - Sprint_Bar_List (Choices (Node)); + Sprint_Bar_List (Discrete_Choices (Node)); Write_Str (" => "); Sprint_Node (Expression (Node)); |