Fix typos

From-SVN: r253972

gcc/testsuite/gnat.dg/specs/discr4.ads

 -- { dg-do compile }
 -- { dg-options "-O" }
 
-with Disc4_Pkg; use Disc4_Pkg;
+with Discr4_Pkg; use Discr4_Pkg;
 
-package Disc4 is
+package Discr4 is
 
    type Data is record
       Val : Rec;
@@ -20,4 +20,4 @@ package Disc4 is
 
    C2 : constant Pair := Build (Get (0), Rec_Three);
 
-end Disc4;
+end Discr4;

gcc/testsuite/gnat.dg/specs/discr4_pkg.ads

-package Disc4_Pkg is
+package Discr4_Pkg is
 
    type Enum is (One, Two, Three);
 
@@ -24,4 +24,4 @@ private
 
    function Get (Value : Integer) return Rec is (Two, Value);
 
-end Disc4_Pkg;
+end Discr4_Pkg;