begin
  ! Test translation of "DIM <dimens> <mulltiple arrays>" in icode output. 
  recordformat arrfm(integerarray a,b(10:20))
  record (arrfm) arrs

  ! DIM not BOUNDS so only 1-D arrays can be used in a recordformat
  !!%recordformat arr2fm(%integerarray p,q(10:20, -3:-2))
  !!%record (arr2fm) arrs2

  ! btw EMAS imp originally allowed dynamicall bound arrays in rcordformats!
  ! - presumably had to claim the space off the stack just like regular arrays
  !   when used.  (alloca in unix terms)

endofprogram