!%permroutinespec    write(%integer  v,p);
!%permroutinespec    newline

begin
  routine fancy9(integer array (2) name param)
  end

  integer array       ia0(2:3)
  integer array       ia1(2:3,1:2)
  integer array       ia2(1:2,1:3)

  integer array     name ian0
  integer array (2) name ian1

  ia1(2,1) = 221; ia1(3,1) = 331
  ia1(2,2) = 10;  ia1(3,2) = 20

  ia2(1,1) = 8221;  ia2(2,1) = 9331
  ia2(1,2) = 8010;  ia2(2,2) = 9020
  ia2(1,3) = 8333;  ia2(2,3) = 9333

  ian1 == ia1
  write(ian1(2,1),0)
  newline

  fancy9(ian1)

  ian1 == ia2
  write(ian1(2,1),0)
  newline

  ian0 == ia0

  !fancy9(ia0) not allowed

  fancy9(ia1)
  fancy9(ian1)
  
endofprogram