Sign in
gnu
/
gcc
/
d769c5040874bf9546f2524f3f1d2a894165f92a
/
.
/
gcc
/
testsuite
/
gnat.dg
/
task1.ads
blob: 8908915248b45a301483b99f4a0d8b538a9b672f [
file
] [
log
] [
blame
]
with
Task1_Pkg
;
use
Task1_Pkg
;
package
Task1
is
TAB
:
constant
Typ_Task_Par_Tab
:=
(
others
=>
(
Dummy
=>
FALSE
));
T1
:
Typ_Task
(
TAB
(
1
).
Dummy
);
T2
:
Typ_Task
(
TAB
(
2
).
Dummy
);
procedure
Dummy
;
end
Task1
;