Sign in
gnu
/
gcc
/
e27771e5dcd8cf2cb757db6177a3485acd28b88f
/
.
/
gcc
/
testsuite
/
gnat.dg
/
thunk1_pkg2.adb
blob: 71ad45d19a5858324c9aa6e80e198d2d8f33553e [
file
] [
log
] [
blame
]
package
body
Thunk1_Pkg2
is
procedure
Op
(
This
:
in
out
Ext
;
S
:
String
)
is
begin
if
S
/=
"Message"
then
raise
Program_Error
;
end
if
;
end
;
end
Thunk1_Pkg2
;