gcc/testsuite/
* gnat.dg/valid_scalars2.adb: Remove -O0 option.
* gnat.dg/validity_check3.ads: Rename to...
* gnat.dg/valid_scalars3.ads: ...this.
* gnat.dg/validity_check3.adb: Rename to...
* gnat.dg/valid_scalars3.adb: ...this.
-- { dg-do run }
--- { dg-options "-O0 -gnata -gnateV" }
+-- { dg-options "-gnata -gnateV" }
with Ada.Exceptions; use Ada.Exceptions;
-- { dg-do compile }
-- { dg-options "-gnata -gnateV" }
-package body Validity_Check3 is
+package body Valid_Scalars3 is
procedure Proc_Priv_CW_1 (Param : Tag_1'Class) is begin null; end;
procedure Proc_Priv_CW_2 (Param : Tag_2'Class) is begin null; end;
procedure Proc_Priv_CW_3 (Param : Tag_3'Class) is begin null; end;
Proc_Vis_Tag_5 (Obj_Tag_5);
Proc_Vis_Tag_6 (Obj_Tag_6);
end Call_All;
-end Validity_Check3;
+end Valid_Scalars3;
-package Validity_Check3 is
+package Valid_Scalars3 is
procedure Call_All;
type Rec_1 is private;
procedure Proc_Priv_Tag_6 (Param : Tag_6);
procedure Proc_Priv_CW_6 (Param : Tag_6'Class);
-end Validity_Check3;
+end Valid_Scalars3;