Sign in
gnu
/
gcc
/
4e4e45a4fd341174d8231ee6a99e6fe308904f8f
/
.
/
gcc
/
testsuite
/
gnat.dg
/
array20.adb
blob: 86eb61b4ce8b81d6863cbf5adf50cff5022ff514 [
file
] [
log
] [
blame
]
--
{
dg
-
do
assemble
}
package
body
Array20
is
type
Arr
is
array
(
Positive
range
<>)
of
Integer
;
type P_Arr
is
access
Arr
;
N
:
constant P_Arr
:=
null
;
Table
:
P_Arr
:=
N
;
end
Array20
;