1 files changed, 6 insertions, 0 deletions
diff --git a/gcc/ada/par-ch4.adb b/gcc/ada/par-ch4.adb
index 2844b4e..fd0373e 100644
--- a/gcc/ada/par-ch4.adb
+++ b/gcc/ada/par-ch4.adb
@@ -3317,6 +3317,12 @@ package body Ch4 is
       Set_Discrete_Choices (Assoc_Node, P_Discrete_Choice_List);
       TF_Arrow;
       Set_Expression (Assoc_Node, P_Expression);
+
+      if Ada_Version < Ada_2020 then
+         Error_Msg_SC ("Iterated component  is an Ada 2020 extension");
+         Error_Msg_SC ("\compile with -gnatX");
+      end if;
+
       return Assoc_Node;
    end P_Iterated_Component_Association;