pro test,ok=ok
;
  compile_opt idl2, strictarrsubs
;
if keyword_set(ok) then print,'OK' else print, 'No'
return
end