blob: fa21715d73dcefec43297cab8cbab9082a719bba [file] [log] [blame]
-- { 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;