The Ada Program: concatenation.adb

  1 -- concatenation.adb:  concatentation of arrays
  2 
  3 procedure Concatenation is
  4 
  5    type Int_Array is array (Integer range <>) of Integer;
  6 
  7    A: Int_Array := Int_Array'(1,2,3,4);
  8    B: Int_Array := Int_Array'(5,6,7,8,9,0);
  9    C: Int_Array(1..10);
 10 
 11    R: String := "1234";
 12    S: String := "567890";
 13    T: String(1..10);
 14 
 15 begin
 16 
 17    C := A & B;
 18    T := R & S;
 19 
 20 end Concatenation;