Sign in
gnu
/
gcc
/
a8404c07e7fca388c02c39077865f7d5fa928430
/
.
/
gcc
/
testsuite
/
gnat.dg
/
task1_pkg.ads
blob: 183d2395e848d7012d234e917d4d12aa28738a11 [
file
] [
log
] [
blame
]
package
Task1_Pkg
is
subtype
Typ_Bool
is
boolean
;
type
Typ_Task_Par
is
record
Dummy
:
Typ_Bool
;
end
record
;
type
Typ_Task_Par_Tab
is
array
(
1
..
33
)
of aliased
Typ_Task_Par
;
task type
Typ_Task
(
dummy
:
Typ_Bool
);
end
Task1_Pkg
;