Sign in
gnu
/
gcc
/
d769c5040874bf9546f2524f3f1d2a894165f92a
/
.
/
gcc
/
testsuite
/
gnat.dg
/
volatile10.adb
blob: 945d562d57056c15ff889cd5e2392b1f30d891c2 [
file
] [
log
] [
blame
]
--
{
dg
-
do
compile
}
with
Volatile10_Pkg
;
use
Volatile10_Pkg
;
procedure
Volatile10
is
N
:
Num
;
begin
N
:=
F
.
N1
;
N
:=
F
.
N2
;
end
;