gcc/testsuite/gnat.dg/aggr11.adb

   1 -- { dg-do compile }\r
   2 -- { dg-options "-O" }\r
   3 \r
   4 with Aggr11_Pkg; use Aggr11_Pkg;\r
   5 \r
   6 procedure Aggr11 is\r
   7 \r
   8   A : Arr := ((1 => (Kind  => No_Error, B => True),\r
   9                2 => (Kind => Error),\r
  10                3 => (Kind => Error),\r
  11                4 => (Kind  => No_Error, B => True),\r
  12                5 => (Kind  => No_Error, B => True),\r
  13                6 => (Kind  => No_Error, B => True)));\r
  14 \r
  15 begin\r
  16    null;\r
  17 end;\r