externalroutinespec pass
externalroutinespec fail
constinteger three = 3, four = 4
routine checkstar(string(*)arrayname s)
  if s(1) = "one" and s(2) = "two" and s(3) = "three" c
  and s(four) = "four" then pass else fail
  s(three) = "333"
end

endoffile