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

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