Index: aunit/containers/ada_containers-aunit_lists.adb
===================================================================
--- aunit/containers/ada_containers-aunit_lists.adb	(revision 164273)
+++ aunit/containers/ada_containers-aunit_lists.adb	(working copy)
@@ -23,8 +23,6 @@
 -- This unit was originally developed by Matthew J Heaney.                  --
 ------------------------------------------------------------------------------
 
-pragma Ada_2005;
-
 with System;  use type System.Address;
 
 with AUnit.Memory;       use AUnit.Memory;
@@ -726,7 +724,7 @@
 
    procedure Iterate
      (Container : List;
-      Process   : not null access procedure (Position : Cursor))
+      Process   : Processor)
    is
       C : List renames Container'Unrestricted_Access.all;
       B : Natural renames C.Busy;
Index: aunit/containers/ada_containers-aunit_lists.ads
===================================================================
--- aunit/containers/ada_containers-aunit_lists.ads	(revision 164273)
+++ aunit/containers/ada_containers-aunit_lists.ads	(working copy)
@@ -35,8 +35,6 @@
 --  Some Ada2005 constructs have also been removed so that user tests can be
 --  compiled in Ada95.
 
-pragma Ada_2005;
-
 generic
    type Element_Type is private;
 
@@ -181,9 +179,11 @@
 
    function Has_Element (Position : Cursor) return Boolean;
 
+   type Processor is access procedure (Position : Cursor);
+
    procedure Iterate
      (Container : List;
-      Process   : not null access procedure (Position : Cursor));
+      Process   : Processor);
 
 --     procedure Reverse_Iterate
 --       (Container : List;