RosettaCodeData/Task/Array-concatenation/PL-I/array-concatenation-1.pli

   declare x(12) fixed;
   declare b(5) fixed defined x;
   declare c(7) fixed defined x(1sub+5);