ubuntu-buildroot/output/build/host-gcc-initial-11.4.0/gcc/testsuite/gnat.dg/warn30.ads

7 lines
166 B
Ada

with Interfaces; use type Interfaces.Integer_64;
package Warn30 is
procedure Incr (X : in out Interfaces.Integer_64) with
Post => X = X'Old + 1;
end Warn30;