From 8c282abad581fb09d2f8d04bbb8c288a6f3b1230 Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Sat, 21 Oct 2017 10:05:33 +0000 Subject: [PATCH] Fix typos From-SVN: r253972 --- gcc/testsuite/gnat.dg/specs/discr4.ads | 6 +++--- gcc/testsuite/gnat.dg/specs/discr4_pkg.ads | 4 ++-- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/gcc/testsuite/gnat.dg/specs/discr4.ads b/gcc/testsuite/gnat.dg/specs/discr4.ads index ef9f046abcd..a7fc25b9d66 100644 --- a/gcc/testsuite/gnat.dg/specs/discr4.ads +++ b/gcc/testsuite/gnat.dg/specs/discr4.ads @@ -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; diff --git a/gcc/testsuite/gnat.dg/specs/discr4_pkg.ads b/gcc/testsuite/gnat.dg/specs/discr4_pkg.ads index 4b6c573729d..231a8fb77e8 100644 --- a/gcc/testsuite/gnat.dg/specs/discr4_pkg.ads +++ b/gcc/testsuite/gnat.dg/specs/discr4_pkg.ads @@ -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; -- 2.30.2