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

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

package Prot3_Pkg is
   
   type Rec is record
      V1 : Short_Integer;
      V2 : Short_Integer;
   end record with Volatile_Full_Access;
   
   protected type Prot is
      procedure Foo (J : Short_Integer);
   private
      Val : Rec;
   end Prot;
   
   P : Prot;
   
end Prot3_Pkg;