begin
  routine handle array(integer array name test)
    ! A %array is not allowed, only a %array %name ...
  end

  integer array small(0:7)

  handle array(small)
endofprogram