procedure P (X : in out Integer);
--# derives X from *;
--# post X = 42;