Sign in
gnu
/
gcc
/
a8404c07e7fca388c02c39077865f7d5fa928430
/
.
/
gcc
/
testsuite
/
gnat.dg
/
discr50.adb
blob: e7de16d9e7cb4363a8a0d6a660605767667fbe3f [
file
] [
log
] [
blame
]
--
{
dg
-
do
compile
}
procedure
Discr50
is
type
My_Record
(
D
:
Integer
)
is
record
A
:
Integer
;
end
record
;
B
:
My_Record
(
Positive
range
1
..
10
);
--
{
dg
-
error
"a subtype indication is not a valid discriminant constraint"
}
begin
null
;
end
Discr50
;