subprogram.ads

来自「Ada 2005 Training Notes.」· ADS 代码 · 共 17 行

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);
private
end Subprogram;