Fix typos

From-SVN: r253972
This commit is contained in:
Eric Botcazou 2017-10-21 10:05:33 +00:00
parent f330b1eca9
commit 8c282abad5
2 changed files with 5 additions and 5 deletions

View File

@ -1,9 +1,9 @@
-- { 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;

View File

@ -1,4 +1,4 @@
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;