gcc/testsuite/gnat.dg/dimensions2.adb

   1 --  { dg-do compile }
   2
   3 with Dimensions2_phys; use Dimensions2_phys;
   4
   5 procedure Dimensions2 is
   6
   7    zero_flow : constant Volumetric_Flow := 0.0 * m**3 / h;
   8    type Node_Flow_Scenario_T is array (Positive range <>)
   9           of Volumetric_Flow with
  10             default_component_value => zero_flow;
  11    subtype Max_Node_Flow_Scenario_T
  12        is Node_Flow_Scenario_T (Natural (1) .. 48);
  13    flow_value_array : Max_Node_Flow_Scenario_T  := (1..48 => zero_flow);
  14    flow_value_array1 : Max_Node_Flow_Scenario_T
  15         := (Max_Node_Flow_Scenario_T'Range=> zero_flow);
  16    flow_value_array2 : Max_Node_Flow_Scenario_T  := (others => zero_flow);
  17
  18 begin
  19     null;
  20 end Dimensions2;