Commit 8c282aba by Eric Botcazou

Fix typos

From-SVN: r253972
parent f330b1ec
-- { 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;
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;
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment