Sign in
gnu
/
gcc
/
a8404c07e7fca388c02c39077865f7d5fa928430
/
.
/
gcc
/
testsuite
/
gnat.dg
/
discr26.adb
blob: 2d498889bf8186477c4b5b546bc55293365b064c [
file
] [
log
] [
blame
]
--
{
dg
-
do
compile
}
--
{
dg
-
options
"-gnatws"
}
package
body
Discr26
is
function
F1
return
My_T1
is
R
:
My_T1
;
begin
return
R
;
end
;
procedure
Proc
is
begin
if
F1
.
D
=
0
then
raise
Program_Error
;
end
if
;
end
;
end
Discr26
;