Sign in
llvm
/
llvm
/
2aba8f7f84766599496a6a542d72cc21d1d27a23
/
.
/
test
/
FrontendAda
/
real_cst.adb
blob: c9708301d62f749d5ecf3c12695752ec2c7bb1f3 [
file
] [
log
] [
blame
]
--
RUN
:
%
llvmgcc
-
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
;