Sign in
gnu
/
gcc
/
refs/tags/basepoints/gcc-13
/
.
/
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
;