OSDN Git Service

* gimple.c (gimple_types_compatible_p) <ARRAY_TYPE>: Treat bounds of
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gnat.dg / lto6.adb
1 -- { dg-do run }
2 -- { dg-options "-gnat05 -O2 -flto" }
3
4 with Lto6_Pkg; use Lto6_Pkg;
5
6 procedure Lto6 is
7   type Enum is (A, B, C, D);
8   Table : array (B .. C, 1 .. 1) of F_String := (others => (others => Null_String));
9 begin
10   Table := (others => (others => Null_String));
11 end;