1package array2 is
2
3  type RIC_TYPE is (RIC1, RIC2);
4  for RIC_TYPE'SIZE use 32;
5
6  function MAX return Integer;
7
8end array2;
9