Sign in
gnu
/
gcc
/
1e819bd95ebeefc1dc469daa1855ce005cb77822
/
.
/
gcc
/
testsuite
/
gnat.dg
/
specs
/
access_constant_decl.ads
blob: aec40e6db828a95ccb4cfadc6c69f95acb6058f9 [
file
] [
log
] [
blame
]
--
{
dg
-
do
compile
}
package
Access_Constant_Decl
is
c
:
aliased constant integer
:=
3
;
type const_ptr
is
access constant integer
;
cp
:
const_ptr
:=
c
'access;
x : access integer := cp; -- { dg-error "access-to-constant" }
end Access_Constant_Decl;