Minor reformatting.

From-SVN: r180957
This commit is contained in:
Arnaud Charlet 2011-11-04 15:10:21 +01:00
parent 8daa1407f2
commit 288f28c87e
1 changed files with 1 additions and 2 deletions

View File

@ -2431,7 +2431,7 @@ package body Sem_Ch5 is
declare
Element : constant Entity_Id :=
Find_Aspect (Typ, Aspect_Iterator_Element);
Find_Aspect (Typ, Aspect_Iterator_Element);
begin
if No (Element) then
Error_Msg_NE ("cannot iterate over&", N, Typ);
@ -2453,7 +2453,6 @@ package body Sem_Ch5 is
Error_Msg_NE
("cannot iterate over&", Name (N), Typ);
else
Error_Msg_N
("name must be an iterator, not a container", Name (N));
end if;