| Duncan Sands | 1f59e09 | 2011-01-24 18:04:33 +0000 | [diff] [blame^] | 1 | -- RUN: %llvmgcc -S -O2 -gnatn %s |
| 2 | package body Real_Cst is | ||||
| 3 | Cst : constant Float := 0.0; | ||||
| 4 | procedure Write (Stream : access Ada.Streams.Root_Stream_Type'Class) is | ||||
| 5 | begin | ||||
| 6 | Float'Write (Stream, Cst); | ||||
| 7 | end; | ||||
| 8 | end; | ||||