begin
  recordformat arrfm(integer array test(0:9))
  
  routine handle array(record (arrfm) rec)
    ! A %array is not allowed, only a %array %name ...
    write(rec_test(5), 0)
  end

  record (arrfm) small

  small_test(5) = 42
  handle array(small)

endofprogram