Sign in
gnu
/
gcc
/
61351ab96a4dfa0884c8b1a53342b97915fb5dd7
/
.
/
gcc
/
testsuite
/
gnat.dg
/
global2.adb
blob: b18d9ac1fdaeab9161eefad67221eb93f611f413 [
file
] [
log
] [
blame
]
--
{
dg
-
do
compile
}
package
body
Global2
is
procedure
Change_X
is
begin
X
.
all
:=
1
;
end
Change_X
;
procedure
Change2_X
is
begin
X
.
all
:=
1
;
end
Change2_X
;
end
Global2
;