* fe.h (Serious_Errors_Detected): New macro.

[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gnat.dg / discr11.ads

with Discr11_Pkg; use Discr11_Pkg;

package Discr11 is
   type DT_2 is new DT_1 with record
     More : Integer;
   end record;

   function Create return DT_2;
end Discr11;