RosettaCodeData/Task/Assertions/SPARK/assertions-4.spark

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