* gcc.dg/stack-check-5.c: Skip with -fstack-protector.
[official-gcc.git] / gcc / testsuite / gnat.dg / modular2.adb
blob4e01bd60909cc6a1ee715bf6f3b6368b739b6593
1 -- { dg-do run }
3 procedure modular2 is
4 type x is mod 2 ** 64;
5 r : x := x'last;
6 begin
7 r := r + 1;
8 end;