ada: Pretty-print filter of loop parameter specification

Filter was only pretty-printed for iterator specification, but it can also
appear in loop parameter specification. This only affects debug output.

gcc/ada/ChangeLog:

	* sprint.adb (Sprint_Node_Actual): Print filter in loop parameter
	specification.

diff --git a/gcc/ada/sprint.adb b/gcc/ada/sprint.adb
index 0ccea82c1bf1426c0bbeba053f2f9b7e43bffc79..f95a7eaddbf8d2f77fd68fa9df822a74a2fda795 100644 (file)
--- a/gcc/ada/sprint.adb
+++ b/gcc/ada/sprint.adb
@@ -2360,6 +2360,11 @@ package body Sprint is
 
             Sprint_Node (Discrete_Subtype_Definition (Node));
 
+            if Present (Iterator_Filter (Node)) then
+               Write_Str (" when ");
+               Sprint_Node (Iterator_Filter (Node));
+            end if;
+
          when N_Loop_Statement =>
             Write_Indent;