#ifdef __IMP80__
%BEGIN
   %ROUTINE ONE (%INTEGERNAME INT)
      INT=9
   %END
   %CONSTINTEGERARRAY ARR(1:2)=1,2
   ONE(ARR(1))
%ENDOFPROGRAM
#else
int main(void) {
   auto void One(int *Int) {
     *Int = 9;
   }
   const int Arr_zero[] = { 1, 2 };
   const int *Arr = Arr_zero-1; /* Works for 1D arrays.  2D arrays not so much :-( */
   
   One((int *)&Arr[1]);
}
#endif
