%BEGIN
%ROUTINE ONE (%INTEGERNAME INT)
INT=9
%END
%CONSTINTEGERARRAY ARR(1:2)=1,2
ONE(ARR(1))
%ENDOFPROGRAM