begin
  integerarray xx1(100:199)
  integerarray xx2,xx3(100:199)
  integerarray xx4(100:199)
  integerarray yy2(0:9, 1:10)
  recordformat recarraysfm(c
    integerarray p1(100:199),
    integerarray q2(0:9{, 1:10})  { ONLY 1-D ARRAYS WITH CONST BOUNDS ALLOWED IN RECORDS } c
  )
  record (recarraysfm) wreck
endofprogram