BEGIN "TSTCON"
   PROCEDURE FOO(REFERENCE CONTEXT ITEMVAR X; REFERENCE CONTEXT Q);
   BEGIN
   END;
   CONTEXT ITEMVAR X;
   CONTEXT Q;
   FOO(X,Q);
   FOO(X,X);
   FOO(Q,Q);
   FOO(Q,X);
END