warn30.ads\gnat.dg\testsuite\gcc - riscv-gnu-toolchain/gcc.git - Unnamed repository; edit this file 'description' to name the repository.

index : riscv-gnu-toolchain/gcc.git

Unnamed repository; edit this file 'description' to name the repository.

root

about summary refs log tree commit diff

path: root/gcc/testsuite/gnat.dg/warn30.ads

blob: 3b608169e62ca690e21ded00743788e15923630c (plain)

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;