package Subprogram is   type Vector is array(Integer range <> ) of Float;   subtype ARecordRange is Integer range 1..10;   type ARecord is      record         V: Vector(ARecordRange);         I: Integer;      end record;   procedure PassArrayParameter(V: in out Vector);   procedure PassRecordParameter(R: in ARecord);privateend Subprogram;