Fix bug in get_entities, add STOP <time> to testsuite script

1 files changed, 6 insertions, 8 deletions

diff --git a/testsuite/get_entities.adb b/testsuite/get_entities.adb
index a874f2276..b34be0829 100644
--- a/testsuite/get_entities.adb
+++ b/testsuite/get_entities.adb
@@ -55,7 +55,7 @@ procedure get_entities is
          end if;
       end Get_End;
 
-      type State_Type is (Idle, Have_Entity, Have_Name, In_Entity, Have_End);
+      type State_Type is (Idle, Have_Entity, Have_Name, In_Entity);
       State : State_Type;
 
       Top_Level_Entity : Boolean;
@@ -194,14 +194,12 @@ procedure get_entities is
                   if Port > 0 then
                      Top_Level_Entity := False;
                   end if;
-                  if End_Pos > 0 then
-                     State := Have_End;
-                  end if;
-               when Have_End =>
-                  if Top_Level_Entity then -- write name to stdout
-                     Last_Entity := Name;
+                  if End_Pos > 0 then 
+                     if Top_Level_Entity then -- write name to stdout
+                        Last_Entity := Name;
+                     end if;
+                     State := Idle;
                   end if;
-                  State := Idle;
             end Case;
 	    exit when End_Of_File (File);
          end;