Sign in
llvm
/
llvm-archive
/
f826bfc261e00c2c580d25debeab7c4f5e476802
/
.
/
dragonegg
/
test
/
validator
/
ada
/
real_cst.adb
blob: 33bc93540cdcd002ff73ad4b1ff9320f5dbeab85 [
file
] [
log
] [
blame
]
--
RUN
:
%
dragonegg
-
S
-
O2
-
gnatn
%
s
package
body
Real_Cst
is
Cst
:
constant
Float
:=
0.0
;
procedure
Write
(
Stream
:
access
Ada
.
Streams
.
Root_Stream_Type
'Class) is
begin
Float'
Write
(
Stream
,
Cst
);
end
;
end
;