Fix typos
From-SVN: r253972
This commit is contained in:
parent
f330b1eca9
commit
8c282abad5
@ -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;
|
||||
|
@ -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;
|
||||
|
Loading…
x
Reference in New Issue
Block a user