PR tree-optimization/86415 - strlen() not folded for substrings within constant arrays

[official-gcc.git] / gcc / testsuite / gnat.dg / discr8_pkg1.ads

with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;
with Discr8_Pkg2; use Discr8_Pkg2;

package Discr8_Pkg1 is

  type T is record
    A : Unbounded_String;
    B : L;
  end record;

end Discr8_Pkg1;