| Duncan Sands | 021cf96 | 2011-03-31 10:03:32 +0000 | [diff] [blame] | 1 | -- RUN: %llvmgcc -S -O2 -gnatn %s -I%p/Support |
| Duncan Sands | 1f59e09 | 2011-01-24 18:04:33 +0000 | [diff] [blame] | 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; | ||||