gcc/testsuite/gnat.dg/iter5.adb

--  { dg-do compile }

with Iter5_Pkg;

procedure Iter5 is
begin
   for The_Filename of Iter5_Pkg.Iterator_For ("C:\Program_Files") loop  --  { dg-error "cannot iterate over \"Item\"" }
      null;
   end loop;
end Iter5;