summaryrefslogtreecommitdiff
path: root/gcc/ada/par-labl.adb
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/ada/par-labl.adb')
-rw-r--r--gcc/ada/par-labl.adb1
1 files changed, 0 insertions, 1 deletions
diff --git a/gcc/ada/par-labl.adb b/gcc/ada/par-labl.adb
index 7147c36040a..fe50b7b0611 100644
--- a/gcc/ada/par-labl.adb
+++ b/gcc/ada/par-labl.adb
@@ -477,7 +477,6 @@ procedure Labl is
begin
Next_Label_Elmt := First_Elmt (Label_List);
-
while Present (Next_Label_Elmt) loop
Label_Node := Node (Next_Label_Elmt);