Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gnat.dg/fixedpnt8.adb @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 |
parents | 1830386684a0 |
children |
line wrap: on
line source
-- { dg-do compile } procedure Fixedpnt8 is Ct_A : constant := 0.000_000_100; Ct_B : constant := 0.000_000_025; Ct_C : constant := 1_000; type Number_Type is range 0 .. Ct_C; subtype Index_Type is Number_Type range 1 .. Number_Type'Last; type Kind_Enumerated_Type is (A1, A2); Kind : Kind_Enumerated_Type := A1; V : Duration := 10.0; Last : constant Index_Type := Index_Type (V / (case Kind is -- { dg-warning "universal_fixed expression interpreted as type \"Standard.Duration\"" } when A1 => Ct_B, when A2 => Ct_A)); begin null; end Fixedpnt8;