Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gnat.dg/dimensions2.adb @ 152:2b5abeee2509
update gcc11
author | anatofuz |
---|---|
date | Mon, 25 May 2020 07:50:57 +0900 |
parents | 1830386684a0 |
children |
line wrap: on
line source
-- { dg-do compile } with Dimensions2_phys; use Dimensions2_phys; procedure Dimensions2 is zero_flow : constant Volumetric_Flow := 0.0 * m**3 / h; type Node_Flow_Scenario_T is array (Positive range <>) of Volumetric_Flow with default_component_value => zero_flow; subtype Max_Node_Flow_Scenario_T is Node_Flow_Scenario_T (Natural (1) .. 48); flow_value_array : Max_Node_Flow_Scenario_T := (1..48 => zero_flow); flow_value_array1 : Max_Node_Flow_Scenario_T := (Max_Node_Flow_Scenario_T'Range=> zero_flow); flow_value_array2 : Max_Node_Flow_Scenario_T := (others => zero_flow); begin null; end Dimensions2;