Sign in
gnu
/
gcc
/
a6d3012b274f38b20e2a57162106f625746af6c6
/
.
/
gcc
/
testsuite
/
gnat.dg
/
bug_elaboration_code.adb
blob: 0aa7abe808a6150122b6990ddc683684f6b3a5d4 [
file
] [
log
] [
blame
]
package
body
Bug_Elaboration_Code
is
procedure
Increment_I
is
begin
I
:=
I
+
1
;
end
Increment_I
;
begin
I
:=
5
;
Increment_I
;
J
:=
I
;
end
Bug_Elaboration_Code
;