Sign in
gnu
/
gcc
/
a8404c07e7fca388c02c39077865f7d5fa928430
/
.
/
gcc
/
testsuite
/
gnat.dg
/
tree_static_def.adb
blob: ed86747a8b156f62ef66e0e40a046d06b58c2e55 [
file
] [
log
] [
blame
]
package
body TREE_STATIC_Def
is
procedure check
(
i
:
int
;
v
:
integer
)
is
begin
if
i
.
value
/=
v
then
raise
program_error
;
end
if
;
end
;
end
;