2016-01-15 Vladimir Makarov <vmakarov@redhat.com>

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

package Discr34_Pkg is

   function N return Natural;

   type Enum is (One, Two);

   type Rec (D : Enum := One) is record
      case D is
         when One => S : String (1 .. N);
         when Two => null;
      end case;
   end record;

   function F return Rec;

end Discr34_Pkg;