--  Test that a record type declaration can be compiled
--  Check .s file to make sure stack is properly reserved
with Minerva.Tests;

procedure Test_Record_1 is
   type Point is 
      record
         X, Y : Integer;
      end record;

   Local_Point : Point;
  
begin
   Minerva.Tests.Result (True);
end Test_Record_1;
