Sign in
gnu
/
gcc
/
refs/tags/basepoints/gcc-13
/
.
/
gcc
/
testsuite
/
gnat.dg
/
modular2.adb
blob: 4e01bd60909cc6a1ee715bf6f3b6368b739b6593 [
file
] [
log
] [
blame
]
--
{
dg
-
do
run
}
procedure modular2
is
type x
is
mod
2
**
64
;
r
:
x
:=
x
'last;
begin
r := r + 1;
end;