From d1f6b7ae328f1d0937a8ca3c82663aa3f202a72d Mon Sep 17 00:00:00 2001 From: Joao Azevedo Date: Wed, 18 Sep 2024 17:07:48 +0000 Subject: [PATCH] Baseline update --- src/pp-main.adb | 2 +- testsuite/tests/metric/RB16-011/test.out | 4 +- testsuite/tests/pp/CS0037228/test.out | 2 +- .../comments_switch_overwrite/test.out | 2 +- .../pp/CS0038689/ignore_cmd_gpr/test.out | 2 +- testsuite/tests/pp/CS0039262/test.out | 2 +- testsuite/tests/pp/G905-011/test.out | 6 +-- testsuite/tests/pp/G913-019/test.out | 2 +- testsuite/tests/pp/MB21-028/test.out | 6 +-- testsuite/tests/pp/N218-043/test.out | 2 +- testsuite/tests/pp/N219-016/test.out | 4 +- testsuite/tests/pp/N312-029/test.out | 4 +- testsuite/tests/pp/N428-004/test.out | 2 +- testsuite/tests/pp/N812-011/test.out | 4 +- testsuite/tests/pp/N827-012/test.out | 2 +- testsuite/tests/pp/O723-016/test.out | 2 +- testsuite/tests/pp/OA07-042/test.out | 2 +- testsuite/tests/pp/P318-034/test.out | 2 +- testsuite/tests/pp/P408-012/test.out | 4 +- testsuite/tests/pp/P523-009/test.out | 2 +- testsuite/tests/pp/P817-005/test.out | 4 +- testsuite/tests/pp/Q724-015/test.out | 4 +- testsuite/tests/pp/QA14-008/test.out | 2 +- testsuite/tests/pp/QA17-028/test.out | 2 +- testsuite/tests/pp/QC06-022/P718-006/test.out | 2 +- testsuite/tests/pp/QC06-022/P718-008/test.out | 2 +- testsuite/tests/pp/QC06-022/P718-010/test.out | 2 +- testsuite/tests/pp/QC06-022/P718-011/test.out | 2 +- testsuite/tests/pp/QC06-022/P718-012/test.out | 2 +- testsuite/tests/pp/QC06-022/P718-013/test.out | 2 +- testsuite/tests/pp/R713-024/test.out | 2 +- testsuite/tests/pp/R813-004/test.out | 2 +- testsuite/tests/pp/RB02-007/test.out | 6 +-- testsuite/tests/pp/RB05-002/test.out | 18 +++---- testsuite/tests/pp/RB28-025/test.out | 14 +++--- testsuite/tests/pp/RC10-055.pp/test.out | 2 +- testsuite/tests/pp/S213-005/test.out | 2 +- testsuite/tests/pp/S220-035/test.out | 2 +- testsuite/tests/pp/S225-027/test.out | 2 +- testsuite/tests/pp/S225-063/test.out | 2 +- testsuite/tests/pp/S313-033/test.out | 2 +- testsuite/tests/pp/S329-035/test.out | 4 +- testsuite/tests/pp/S412-043/test.out | 2 +- testsuite/tests/pp/S503-002/test.out | 2 +- testsuite/tests/pp/S522-034/test.out | 2 +- testsuite/tests/pp/S709-048/test.out | 6 +-- testsuite/tests/pp/S809-020/test.out | 30 +++++------ testsuite/tests/pp/S913-026/test.out | 2 +- testsuite/tests/pp/T312-041/test.out | 2 +- testsuite/tests/pp/T603-026/test.out | 2 +- testsuite/tests/pp/T603-052/test.out | 2 +- testsuite/tests/pp/T616-044/test.out | 2 +- testsuite/tests/pp/T824-031/test.out | 2 +- testsuite/tests/pp/TA14-049/test.out | 4 +- testsuite/tests/pp/U206-003/test.out | 2 +- testsuite/tests/pp/U206-007/test.out | 2 +- testsuite/tests/pp/U208-025/test.out | 2 +- testsuite/tests/pp/U317-012/test.out | 2 +- testsuite/tests/pp/U506-042/test.out | 6 +-- testsuite/tests/pp/U514-018/test.out | 2 +- testsuite/tests/pp/U603-022/test.out | 2 +- testsuite/tests/pp/U617-041/test.out | 2 +- testsuite/tests/pp/U813-002_0/test.out | 12 ++--- testsuite/tests/pp/U813-002_1/test.out | 12 ++--- testsuite/tests/pp/U916-013/test.out | 4 +- testsuite/tests/pp/U920-030/test.out | 2 +- testsuite/tests/pp/V111-001/test.out | 4 +- testsuite/tests/pp/V117-043/test.out | 2 +- testsuite/tests/pp/V120-021/test.out | 2 +- testsuite/tests/pp/V203-009/test.out | 2 +- testsuite/tests/pp/V308-029/test.out | 4 +- testsuite/tests/pp/V405-022/test.out | 4 +- testsuite/tests/pp/V414-004/test.out | 2 +- testsuite/tests/pp/V523-046/test.out | 6 +-- testsuite/tests/pp/V901-006/test.out | 2 +- testsuite/tests/pp/VA11-017/test.out | 2 +- .../pp/VA11-017_insert_blank_lines/test.out | 2 +- testsuite/tests/pp/VA11-018/test.out | 2 +- testsuite/tests/pp/VB25-014/test.out | 50 +++++++++---------- testsuite/tests/pp/VC19-020-split/test.out | 2 +- testsuite/tests/pp/VC19-020/test.out | 48 +++++++++--------- testsuite/tests/pp/W213-015/test.out | 2 +- testsuite/tests/pp/agg.P510-022/test.out | 10 ++-- testsuite/tests/pp/issue_24/test.out | 2 +- testsuite/tests/pp/issue_38/test.out | 4 +- testsuite/tests/pp/issue_39/test.out | 4 +- testsuite/tests/pp/issue_45/test.out | 4 +- testsuite/tests/pp/issue_66/test.out | 2 +- testsuite/tests/pp/issue_82/test.out | 2 +- testsuite/tests/pp/issue_94_W601-007/test.out | 4 +- testsuite/tests/pp/issue_95/test.out | 4 +- 91 files changed, 210 insertions(+), 210 deletions(-) diff --git a/src/pp-main.adb b/src/pp-main.adb index db37eac1..53f65188 100644 --- a/src/pp-main.adb +++ b/src/pp-main.adb @@ -47,7 +47,7 @@ begin ("\n\1\n", "Info: AdaCore provides a new formatter GNATformat, currently in beta. " & "This will supersede GNATpp when leaving the beta program."); - Utils.Err_Out.Put ("-------\n\n"); + Utils.Err_Out.Put ("-----\n\n"); -- Override trace settings by parsing the config file GNATCOLL.Traces.Parse_Config_File; diff --git a/testsuite/tests/metric/RB16-011/test.out b/testsuite/tests/metric/RB16-011/test.out index 8dd0324f..7c82259a 100644 --- a/testsuite/tests/metric/RB16-011/test.out +++ b/testsuite/tests/metric/RB16-011/test.out @@ -1,6 +1,6 @@ -WARNING: GNATpp will be baselined soon. Please switch to GNATformat, the new Ada code formatter, for future use. -------- +Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. +----- procedure Foo (I : in out Integer) is begin diff --git a/testsuite/tests/pp/CS0037228/test.out b/testsuite/tests/pp/CS0037228/test.out index 6d12e38c..30358864 100644 --- a/testsuite/tests/pp/CS0037228/test.out +++ b/testsuite/tests/pp/CS0037228/test.out @@ -1,6 +1,6 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- package body Foo is diff --git a/testsuite/tests/pp/CS0038689/comments_switch_overwrite/test.out b/testsuite/tests/pp/CS0038689/comments_switch_overwrite/test.out index ce193fb2..2af982c2 100644 --- a/testsuite/tests/pp/CS0038689/comments_switch_overwrite/test.out +++ b/testsuite/tests/pp/CS0038689/comments_switch_overwrite/test.out @@ -1,6 +1,6 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- package Test is -- Documentation diff --git a/testsuite/tests/pp/CS0038689/ignore_cmd_gpr/test.out b/testsuite/tests/pp/CS0038689/ignore_cmd_gpr/test.out index 7c70e819..dd23165a 100644 --- a/testsuite/tests/pp/CS0038689/ignore_cmd_gpr/test.out +++ b/testsuite/tests/pp/CS0038689/ignore_cmd_gpr/test.out @@ -1,6 +1,6 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- Units remaining: 4 package Test_1 is diff --git a/testsuite/tests/pp/CS0039262/test.out b/testsuite/tests/pp/CS0039262/test.out index 57f86189..8e776e7d 100644 --- a/testsuite/tests/pp/CS0039262/test.out +++ b/testsuite/tests/pp/CS0039262/test.out @@ -1,6 +1,6 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- package test is diff --git a/testsuite/tests/pp/G905-011/test.out b/testsuite/tests/pp/G905-011/test.out index 23e191d6..def061a9 100644 --- a/testsuite/tests/pp/G905-011/test.out +++ b/testsuite/tests/pp/G905-011/test.out @@ -1,6 +1,6 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- with Ada.Strings.Unbounded; use Ada.Strings.Unbounded; procedure Gnatpp_Array_Formatting is @@ -27,7 +27,7 @@ begin end Gnatpp_Array_Formatting; Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- with Ada.Text_IO; procedure Gnatpp_Exdentation is @@ -54,7 +54,7 @@ begin end Gnatpp_Exdentation; Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- procedure Junk is begin diff --git a/testsuite/tests/pp/G913-019/test.out b/testsuite/tests/pp/G913-019/test.out index 20a54b00..1e9248b6 100644 --- a/testsuite/tests/pp/G913-019/test.out +++ b/testsuite/tests/pp/G913-019/test.out @@ -1,6 +1,6 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- procedure TEST is procedure PROCEDURE_NAME diff --git a/testsuite/tests/pp/MB21-028/test.out b/testsuite/tests/pp/MB21-028/test.out index 405cb49f..96c3446a 100644 --- a/testsuite/tests/pp/MB21-028/test.out +++ b/testsuite/tests/pp/MB21-028/test.out @@ -1,6 +1,6 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- procedure P is pragma Warnings (Off); @@ -10,7 +10,7 @@ begin end P; Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- procedure P is pragma Warnings (Off); @@ -22,7 +22,7 @@ begin end P; Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- package body Q is diff --git a/testsuite/tests/pp/N218-043/test.out b/testsuite/tests/pp/N218-043/test.out index 7124ceb9..2744b365 100644 --- a/testsuite/tests/pp/N218-043/test.out +++ b/testsuite/tests/pp/N218-043/test.out @@ -1,6 +1,6 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- package Directions is diff --git a/testsuite/tests/pp/N219-016/test.out b/testsuite/tests/pp/N219-016/test.out index b13b0281..be367cb3 100644 --- a/testsuite/tests/pp/N219-016/test.out +++ b/testsuite/tests/pp/N219-016/test.out @@ -1,6 +1,6 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- package Records is @@ -25,7 +25,7 @@ package Records is end Records; Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- package Records is diff --git a/testsuite/tests/pp/N312-029/test.out b/testsuite/tests/pp/N312-029/test.out index 4b644eba..b2861371 100644 --- a/testsuite/tests/pp/N312-029/test.out +++ b/testsuite/tests/pp/N312-029/test.out @@ -1,6 +1,6 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- procedure Sample_Formatting is @@ -40,7 +40,7 @@ begin end Sample_Formatting; Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- procedure Sample_Formatting is diff --git a/testsuite/tests/pp/N428-004/test.out b/testsuite/tests/pp/N428-004/test.out index 82e2c172..f10f7b7e 100644 --- a/testsuite/tests/pp/N428-004/test.out +++ b/testsuite/tests/pp/N428-004/test.out @@ -1,6 +1,6 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- procedure Ors is begin diff --git a/testsuite/tests/pp/N812-011/test.out b/testsuite/tests/pp/N812-011/test.out index 78af53ff..cf7cfe4f 100644 --- a/testsuite/tests/pp/N812-011/test.out +++ b/testsuite/tests/pp/N812-011/test.out @@ -1,6 +1,6 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- package P with Pure @@ -18,7 +18,7 @@ is end P; Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- package Q is diff --git a/testsuite/tests/pp/N827-012/test.out b/testsuite/tests/pp/N827-012/test.out index 49df0d72..59450ded 100644 --- a/testsuite/tests/pp/N827-012/test.out +++ b/testsuite/tests/pp/N827-012/test.out @@ -1,6 +1,6 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- with Ada.Characters.Latin_1; diff --git a/testsuite/tests/pp/O723-016/test.out b/testsuite/tests/pp/O723-016/test.out index 6a3cf446..e7942308 100644 --- a/testsuite/tests/pp/O723-016/test.out +++ b/testsuite/tests/pp/O723-016/test.out @@ -1,6 +1,6 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- with Toto, Titi; diff --git a/testsuite/tests/pp/OA07-042/test.out b/testsuite/tests/pp/OA07-042/test.out index 20b33e42..6512fee3 100644 --- a/testsuite/tests/pp/OA07-042/test.out +++ b/testsuite/tests/pp/OA07-042/test.out @@ -1,6 +1,6 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- package Align_Test is Index : Integer; diff --git a/testsuite/tests/pp/P318-034/test.out b/testsuite/tests/pp/P318-034/test.out index 5109a209..96343667 100644 --- a/testsuite/tests/pp/P318-034/test.out +++ b/testsuite/tests/pp/P318-034/test.out @@ -1,6 +1,6 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- -- Testing pretty printing of enums with inline documentation procedure test_main is diff --git a/testsuite/tests/pp/P408-012/test.out b/testsuite/tests/pp/P408-012/test.out index 4e89d744..5e4ae439 100644 --- a/testsuite/tests/pp/P408-012/test.out +++ b/testsuite/tests/pp/P408-012/test.out @@ -1,6 +1,6 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- procedure Pretty is @@ -52,7 +52,7 @@ begin end Pretty; Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- procedure Pretty is diff --git a/testsuite/tests/pp/P523-009/test.out b/testsuite/tests/pp/P523-009/test.out index a51a5081..6d1a8c59 100644 --- a/testsuite/tests/pp/P523-009/test.out +++ b/testsuite/tests/pp/P523-009/test.out @@ -1,6 +1,6 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- pragma Ada_95; pragma Warnings (Off); diff --git a/testsuite/tests/pp/P817-005/test.out b/testsuite/tests/pp/P817-005/test.out index c2054e1d..c1a6d17d 100644 --- a/testsuite/tests/pp/P817-005/test.out +++ b/testsuite/tests/pp/P817-005/test.out @@ -1,6 +1,6 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- package Example_With_Comments is @@ -23,7 +23,7 @@ package Example_With_Comments is end Example_With_Comments; Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- package Example_With_Comments is -- end of line diff --git a/testsuite/tests/pp/Q724-015/test.out b/testsuite/tests/pp/Q724-015/test.out index 2c5adf21..98878b56 100644 --- a/testsuite/tests/pp/Q724-015/test.out +++ b/testsuite/tests/pp/Q724-015/test.out @@ -1,6 +1,6 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- package Csc_Channel.Version_Handling is type T_Version_Handling is limited interface; @@ -14,7 +14,7 @@ package Csc_Channel.Version_Handling is end Csc_Channel.Version_Handling; Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- package Csc_Channel.Version_Handling is type T_Version_Handling is limited interface; diff --git a/testsuite/tests/pp/QA14-008/test.out b/testsuite/tests/pp/QA14-008/test.out index 6acdc45d..cf89b980 100644 --- a/testsuite/tests/pp/QA14-008/test.out +++ b/testsuite/tests/pp/QA14-008/test.out @@ -1,6 +1,6 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- procedure Left_Hand_Side is begin diff --git a/testsuite/tests/pp/QA17-028/test.out b/testsuite/tests/pp/QA17-028/test.out index bff60247..139f3988 100644 --- a/testsuite/tests/pp/QA17-028/test.out +++ b/testsuite/tests/pp/QA17-028/test.out @@ -1,6 +1,6 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- WITH ibusiness_unit.synthetic_target_manager; diff --git a/testsuite/tests/pp/QC06-022/P718-006/test.out b/testsuite/tests/pp/QC06-022/P718-006/test.out index 08811576..d8db6eab 100644 --- a/testsuite/tests/pp/QC06-022/P718-006/test.out +++ b/testsuite/tests/pp/QC06-022/P718-006/test.out @@ -1,6 +1,6 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- procedure Gnatpp_Playground is diff --git a/testsuite/tests/pp/QC06-022/P718-008/test.out b/testsuite/tests/pp/QC06-022/P718-008/test.out index bbdcd62b..c349890d 100644 --- a/testsuite/tests/pp/QC06-022/P718-008/test.out +++ b/testsuite/tests/pp/QC06-022/P718-008/test.out @@ -1,6 +1,6 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- procedure Compact_Array_Type_Declaration is diff --git a/testsuite/tests/pp/QC06-022/P718-010/test.out b/testsuite/tests/pp/QC06-022/P718-010/test.out index cfc6c9db..346b2815 100644 --- a/testsuite/tests/pp/QC06-022/P718-010/test.out +++ b/testsuite/tests/pp/QC06-022/P718-010/test.out @@ -1,6 +1,6 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- procedure Preserve_Existing_Continuation_Lines is diff --git a/testsuite/tests/pp/QC06-022/P718-011/test.out b/testsuite/tests/pp/QC06-022/P718-011/test.out index 4ce002d2..2e9e85a4 100644 --- a/testsuite/tests/pp/QC06-022/P718-011/test.out +++ b/testsuite/tests/pp/QC06-022/P718-011/test.out @@ -1,6 +1,6 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- procedure Named_Aggregate_Affectation is diff --git a/testsuite/tests/pp/QC06-022/P718-012/test.out b/testsuite/tests/pp/QC06-022/P718-012/test.out index c73cf56d..f05b9e98 100644 --- a/testsuite/tests/pp/QC06-022/P718-012/test.out +++ b/testsuite/tests/pp/QC06-022/P718-012/test.out @@ -1,6 +1,6 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- procedure Split_Lines_Before_Vertical_Bars is diff --git a/testsuite/tests/pp/QC06-022/P718-013/test.out b/testsuite/tests/pp/QC06-022/P718-013/test.out index 6423a318..610929e9 100644 --- a/testsuite/tests/pp/QC06-022/P718-013/test.out +++ b/testsuite/tests/pp/QC06-022/P718-013/test.out @@ -1,6 +1,6 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- procedure Blank_Lines_Insertion is diff --git a/testsuite/tests/pp/R713-024/test.out b/testsuite/tests/pp/R713-024/test.out index 4a66374f..43a08010 100644 --- a/testsuite/tests/pp/R713-024/test.out +++ b/testsuite/tests/pp/R713-024/test.out @@ -1,6 +1,6 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- package Spark_Mode with SPARK_Mode diff --git a/testsuite/tests/pp/R813-004/test.out b/testsuite/tests/pp/R813-004/test.out index 94a312e3..e1b7acf6 100644 --- a/testsuite/tests/pp/R813-004/test.out +++ b/testsuite/tests/pp/R813-004/test.out @@ -1,6 +1,6 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- package body P is diff --git a/testsuite/tests/pp/RB02-007/test.out b/testsuite/tests/pp/RB02-007/test.out index 863abda7..57f5ccff 100644 --- a/testsuite/tests/pp/RB02-007/test.out +++ b/testsuite/tests/pp/RB02-007/test.out @@ -1,14 +1,14 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- out out.sep diff --git a/testsuite/tests/pp/RB05-002/test.out b/testsuite/tests/pp/RB05-002/test.out index b0c92082..f7aa0f73 100644 --- a/testsuite/tests/pp/RB05-002/test.out +++ b/testsuite/tests/pp/RB05-002/test.out @@ -1,6 +1,6 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- procedure Loop_Then is X_012345, X_0123456, X_01234567, @@ -187,7 +187,7 @@ end Loop_Then; separate-loop Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- procedure Loop_Then is X_012345, X_0123456, X_01234567, @@ -377,7 +377,7 @@ end Loop_Then; separate-then Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- procedure Loop_Then is X_012345, X_0123456, X_01234567, @@ -575,7 +575,7 @@ end Loop_Then; separate-loop-then Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- procedure Loop_Then is X_012345, X_0123456, X_01234567, @@ -776,7 +776,7 @@ end Loop_Then; separate-loop separate-then Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- procedure Loop_Then is X_012345, X_0123456, X_01234567, @@ -977,7 +977,7 @@ end Loop_Then; no-separate-loop Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- procedure Loop_Then is X_012345, X_0123456, X_01234567, @@ -1157,7 +1157,7 @@ end Loop_Then; no-separate-then Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- procedure Loop_Then is X_012345, X_0123456, X_01234567, @@ -1335,7 +1335,7 @@ end Loop_Then; no-separate-loop-then Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- procedure Loop_Then is X_012345, X_0123456, X_01234567, @@ -1506,7 +1506,7 @@ end Loop_Then; no-separate-loop no-separate-then Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- procedure Loop_Then is X_012345, X_0123456, X_01234567, diff --git a/testsuite/tests/pp/RB28-025/test.out b/testsuite/tests/pp/RB28-025/test.out index 08c04bec..8b719ce8 100644 --- a/testsuite/tests/pp/RB28-025/test.out +++ b/testsuite/tests/pp/RB28-025/test.out @@ -1,14 +1,14 @@ gnatpp --pipe abc.ads Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- package Abc is end Abc; gnatpp --replace_backup abc.ads Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- package Abc is end; package Abc is @@ -16,14 +16,14 @@ end Abc; gnatpp --replace_backup abc.ads Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- gnatpp: file abc.ads.npp exists use '--replace-force-backup' option to override gnatpp --replace_force_backup abc.ads Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- package Abc is end; package Abc is @@ -31,7 +31,7 @@ end Abc; gnatpp --replace_backup --output-dir=out abc.ads Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- package Abc is end; package Abc is @@ -39,14 +39,14 @@ end Abc; gnatpp --replace_backup --output-dir=out abc.ads Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- gnatpp: file out/abc.ads.npp exists use '--replace-force-backup' option to override gnatpp --replace_force_backup --output-dir=out abc.ads Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- package Abc is end; package Abc is diff --git a/testsuite/tests/pp/RC10-055.pp/test.out b/testsuite/tests/pp/RC10-055.pp/test.out index c751d0d3..e96e19e0 100644 --- a/testsuite/tests/pp/RC10-055.pp/test.out +++ b/testsuite/tests/pp/RC10-055.pp/test.out @@ -1,4 +1,4 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- diff --git a/testsuite/tests/pp/S213-005/test.out b/testsuite/tests/pp/S213-005/test.out index 80c71274..d0f3fa1a 100644 --- a/testsuite/tests/pp/S213-005/test.out +++ b/testsuite/tests/pp/S213-005/test.out @@ -1,6 +1,6 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- procedure p is diff --git a/testsuite/tests/pp/S220-035/test.out b/testsuite/tests/pp/S220-035/test.out index c751d0d3..e96e19e0 100644 --- a/testsuite/tests/pp/S220-035/test.out +++ b/testsuite/tests/pp/S220-035/test.out @@ -1,4 +1,4 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- diff --git a/testsuite/tests/pp/S225-027/test.out b/testsuite/tests/pp/S225-027/test.out index c751d0d3..e96e19e0 100644 --- a/testsuite/tests/pp/S225-027/test.out +++ b/testsuite/tests/pp/S225-027/test.out @@ -1,4 +1,4 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- diff --git a/testsuite/tests/pp/S225-063/test.out b/testsuite/tests/pp/S225-063/test.out index 1458df40..ce1465d0 100644 --- a/testsuite/tests/pp/S225-063/test.out +++ b/testsuite/tests/pp/S225-063/test.out @@ -1,6 +1,6 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- -- This file has CRLF line endings,^M -- but no CRLF after the last line.^M diff --git a/testsuite/tests/pp/S313-033/test.out b/testsuite/tests/pp/S313-033/test.out index 080d81b6..1c4892db 100644 --- a/testsuite/tests/pp/S313-033/test.out +++ b/testsuite/tests/pp/S313-033/test.out @@ -1,6 +1,6 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- procedure Mixed_Keywords is diff --git a/testsuite/tests/pp/S329-035/test.out b/testsuite/tests/pp/S329-035/test.out index af3e6484..874ecb3e 100644 --- a/testsuite/tests/pp/S329-035/test.out +++ b/testsuite/tests/pp/S329-035/test.out @@ -1,6 +1,6 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- WITH System.Multiprocessors.Dispatching_Domains; PACKAGE p IS @@ -10,7 +10,7 @@ PACKAGE p IS END p; Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- WITH System.Multiprocessors.Dispatching_Domains; PACKAGE p IS diff --git a/testsuite/tests/pp/S412-043/test.out b/testsuite/tests/pp/S412-043/test.out index 401c658a..700776be 100644 --- a/testsuite/tests/pp/S412-043/test.out +++ b/testsuite/tests/pp/S412-043/test.out @@ -1,6 +1,6 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- function Cvt is new Unchecked_Conversion (Source => Integer, Target => Tds_Unsigned_T); diff --git a/testsuite/tests/pp/S503-002/test.out b/testsuite/tests/pp/S503-002/test.out index c751d0d3..e96e19e0 100644 --- a/testsuite/tests/pp/S503-002/test.out +++ b/testsuite/tests/pp/S503-002/test.out @@ -1,4 +1,4 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- diff --git a/testsuite/tests/pp/S522-034/test.out b/testsuite/tests/pp/S522-034/test.out index c751d0d3..e96e19e0 100644 --- a/testsuite/tests/pp/S522-034/test.out +++ b/testsuite/tests/pp/S522-034/test.out @@ -1,4 +1,4 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- diff --git a/testsuite/tests/pp/S709-048/test.out b/testsuite/tests/pp/S709-048/test.out index c602f646..172cfe15 100644 --- a/testsuite/tests/pp/S709-048/test.out +++ b/testsuite/tests/pp/S709-048/test.out @@ -1,6 +1,6 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- package P is My_Integer : Integer := Some_Function (A - B); @@ -8,7 +8,7 @@ package P is end P; Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- package P is My_Integer: Integer := Some_Function(A - B); @@ -16,7 +16,7 @@ package P is end P; Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- package P is My_Integer: Integer := Some_Function(A - B); diff --git a/testsuite/tests/pp/S809-020/test.out b/testsuite/tests/pp/S809-020/test.out index 9afd6d65..f0944f41 100644 --- a/testsuite/tests/pp/S809-020/test.out +++ b/testsuite/tests/pp/S809-020/test.out @@ -1,6 +1,6 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- pragma Ada_95; pragma Warnings (Off); @@ -322,7 +322,7 @@ package body ada_main is end ada_main; Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- pragma Ada_95; pragma Warnings (Off); @@ -757,7 +757,7 @@ package ada_main is end ada_main; Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- pragma Ada_95; pragma Warnings (Off); @@ -1027,7 +1027,7 @@ package body ada_main is end ada_main; Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- pragma Ada_95; pragma Warnings (Off); @@ -1399,7 +1399,7 @@ package ada_main is end ada_main; Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- package Csc_Channel.Version_Handling is type T_Version_Handling is limited interface; @@ -1414,7 +1414,7 @@ package Csc_Channel.Version_Handling is end Csc_Channel.Version_Handling; Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- with Ada.Strings.Unbounded; use Ada.Strings.Unbounded; procedure Gnatpp_Array_Formatting is @@ -1441,7 +1441,7 @@ begin end Gnatpp_Array_Formatting; Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- with Ada.Text_IO; procedure Gnatpp_Exdentation is @@ -1468,7 +1468,7 @@ begin end Gnatpp_Exdentation; Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- procedure Loop_Then is X_012345, @@ -1612,7 +1612,7 @@ begin end Loop_Then; Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- procedure Ors is begin @@ -1626,7 +1626,7 @@ begin end Ors; Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- procedure Pretty is @@ -1717,7 +1717,7 @@ begin end Pretty; Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- procedure Separate_Thens is X_0123456789, @@ -1791,12 +1791,12 @@ begin end Separate_Thens; Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- procedure Test070; Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- with Ada.Text_IO; with test_gnatpp; @@ -1813,7 +1813,7 @@ begin end test070; Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- procedure Junk is begin @@ -1824,7 +1824,7 @@ begin end Junk; Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- package test_gnatpp is diff --git a/testsuite/tests/pp/S913-026/test.out b/testsuite/tests/pp/S913-026/test.out index fdcfb700..b4283ef0 100644 --- a/testsuite/tests/pp/S913-026/test.out +++ b/testsuite/tests/pp/S913-026/test.out @@ -1,6 +1,6 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- package test is diff --git a/testsuite/tests/pp/T312-041/test.out b/testsuite/tests/pp/T312-041/test.out index c751d0d3..e96e19e0 100644 --- a/testsuite/tests/pp/T312-041/test.out +++ b/testsuite/tests/pp/T312-041/test.out @@ -1,4 +1,4 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- diff --git a/testsuite/tests/pp/T603-026/test.out b/testsuite/tests/pp/T603-026/test.out index c751d0d3..e96e19e0 100644 --- a/testsuite/tests/pp/T603-026/test.out +++ b/testsuite/tests/pp/T603-026/test.out @@ -1,4 +1,4 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- diff --git a/testsuite/tests/pp/T603-052/test.out b/testsuite/tests/pp/T603-052/test.out index c751d0d3..e96e19e0 100644 --- a/testsuite/tests/pp/T603-052/test.out +++ b/testsuite/tests/pp/T603-052/test.out @@ -1,4 +1,4 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- diff --git a/testsuite/tests/pp/T616-044/test.out b/testsuite/tests/pp/T616-044/test.out index c751d0d3..e96e19e0 100644 --- a/testsuite/tests/pp/T616-044/test.out +++ b/testsuite/tests/pp/T616-044/test.out @@ -1,4 +1,4 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- diff --git a/testsuite/tests/pp/T824-031/test.out b/testsuite/tests/pp/T824-031/test.out index c751d0d3..e96e19e0 100644 --- a/testsuite/tests/pp/T824-031/test.out +++ b/testsuite/tests/pp/T824-031/test.out @@ -1,4 +1,4 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- diff --git a/testsuite/tests/pp/TA14-049/test.out b/testsuite/tests/pp/TA14-049/test.out index 3284945e..3921861c 100644 --- a/testsuite/tests/pp/TA14-049/test.out +++ b/testsuite/tests/pp/TA14-049/test.out @@ -1,6 +1,6 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- package Q @@ -12,6 +12,6 @@ is (2); end Q; Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- gnatpp: q.ads is from externally built project Q diff --git a/testsuite/tests/pp/U206-003/test.out b/testsuite/tests/pp/U206-003/test.out index c751d0d3..e96e19e0 100644 --- a/testsuite/tests/pp/U206-003/test.out +++ b/testsuite/tests/pp/U206-003/test.out @@ -1,4 +1,4 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- diff --git a/testsuite/tests/pp/U206-007/test.out b/testsuite/tests/pp/U206-007/test.out index c751d0d3..e96e19e0 100644 --- a/testsuite/tests/pp/U206-007/test.out +++ b/testsuite/tests/pp/U206-007/test.out @@ -1,4 +1,4 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- diff --git a/testsuite/tests/pp/U208-025/test.out b/testsuite/tests/pp/U208-025/test.out index c751d0d3..e96e19e0 100644 --- a/testsuite/tests/pp/U208-025/test.out +++ b/testsuite/tests/pp/U208-025/test.out @@ -1,4 +1,4 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- diff --git a/testsuite/tests/pp/U317-012/test.out b/testsuite/tests/pp/U317-012/test.out index c751d0d3..e96e19e0 100644 --- a/testsuite/tests/pp/U317-012/test.out +++ b/testsuite/tests/pp/U317-012/test.out @@ -1,4 +1,4 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- diff --git a/testsuite/tests/pp/U506-042/test.out b/testsuite/tests/pp/U506-042/test.out index c94424d5..acf6db25 100644 --- a/testsuite/tests/pp/U506-042/test.out +++ b/testsuite/tests/pp/U506-042/test.out @@ -1,12 +1,12 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- diff --git a/testsuite/tests/pp/U514-018/test.out b/testsuite/tests/pp/U514-018/test.out index c751d0d3..e96e19e0 100644 --- a/testsuite/tests/pp/U514-018/test.out +++ b/testsuite/tests/pp/U514-018/test.out @@ -1,4 +1,4 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- diff --git a/testsuite/tests/pp/U603-022/test.out b/testsuite/tests/pp/U603-022/test.out index c751d0d3..e96e19e0 100644 --- a/testsuite/tests/pp/U603-022/test.out +++ b/testsuite/tests/pp/U603-022/test.out @@ -1,4 +1,4 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- diff --git a/testsuite/tests/pp/U617-041/test.out b/testsuite/tests/pp/U617-041/test.out index 8318a309..9809d31b 100644 --- a/testsuite/tests/pp/U617-041/test.out +++ b/testsuite/tests/pp/U617-041/test.out @@ -1,6 +1,6 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- procedure Main is begin diff --git a/testsuite/tests/pp/U813-002_0/test.out b/testsuite/tests/pp/U813-002_0/test.out index 27203b6e..0556be18 100644 --- a/testsuite/tests/pp/U813-002_0/test.out +++ b/testsuite/tests/pp/U813-002_0/test.out @@ -1,6 +1,6 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- with Ada.Text_IO; use Ada.Text_IO; procedure Main is @@ -14,7 +14,7 @@ end Main; Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- with Ada.Text_IO; use Ada.Text_IO; procedure Main is @@ -28,7 +28,7 @@ end Main; Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- with Ada.Text_IO; use Ada.Text_IO; procedure Main is @@ -42,7 +42,7 @@ end Main; Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- with Ada.Text_IO; use Ada.Text_IO; procedure Main is @@ -56,7 +56,7 @@ end Main; Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- with Ada.Text_IO; use Ada.Text_IO; procedure Main is @@ -70,7 +70,7 @@ end Main; Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- with Ada.Text_IO; use Ada.Text_IO; procedure Main is diff --git a/testsuite/tests/pp/U813-002_1/test.out b/testsuite/tests/pp/U813-002_1/test.out index 2fa50436..ae3e0eae 100644 --- a/testsuite/tests/pp/U813-002_1/test.out +++ b/testsuite/tests/pp/U813-002_1/test.out @@ -1,6 +1,6 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- with Ada.Text_IO; use Ada.Text_IO; procedure Main is @@ -12,7 +12,7 @@ end Main; Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- with Ada.Text_IO; use Ada.Text_IO; procedure Main is @@ -24,7 +24,7 @@ end Main; Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- with Ada.Text_IO; use Ada.Text_IO; procedure Main is @@ -36,7 +36,7 @@ end Main; Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- with Ada.Text_IO; use Ada.Text_IO; procedure Main is @@ -48,7 +48,7 @@ end Main; Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- with Ada.Text_IO; use Ada.Text_IO; procedure Main is @@ -60,7 +60,7 @@ end Main; Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- with Ada.Text_IO; use Ada.Text_IO; procedure Main is diff --git a/testsuite/tests/pp/U916-013/test.out b/testsuite/tests/pp/U916-013/test.out index ca9c45af..a1f65742 100644 --- a/testsuite/tests/pp/U916-013/test.out +++ b/testsuite/tests/pp/U916-013/test.out @@ -1,7 +1,7 @@ test_OK Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- procedure test_OK is @@ -16,7 +16,7 @@ end test_OK; test_NOK Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- Syntax errors in test_NOK.adb 8:4: Skipped token val diff --git a/testsuite/tests/pp/U920-030/test.out b/testsuite/tests/pp/U920-030/test.out index e12060ce..8d2870d5 100644 --- a/testsuite/tests/pp/U920-030/test.out +++ b/testsuite/tests/pp/U920-030/test.out @@ -1,6 +1,6 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- procedure Main is type Forward_Variance_Result is record diff --git a/testsuite/tests/pp/V111-001/test.out b/testsuite/tests/pp/V111-001/test.out index feffbf86..54b8bf42 100644 --- a/testsuite/tests/pp/V111-001/test.out +++ b/testsuite/tests/pp/V111-001/test.out @@ -1,8 +1,8 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- diff --git a/testsuite/tests/pp/V117-043/test.out b/testsuite/tests/pp/V117-043/test.out index c751d0d3..e96e19e0 100644 --- a/testsuite/tests/pp/V117-043/test.out +++ b/testsuite/tests/pp/V117-043/test.out @@ -1,4 +1,4 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- diff --git a/testsuite/tests/pp/V120-021/test.out b/testsuite/tests/pp/V120-021/test.out index c751d0d3..e96e19e0 100644 --- a/testsuite/tests/pp/V120-021/test.out +++ b/testsuite/tests/pp/V120-021/test.out @@ -1,4 +1,4 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- diff --git a/testsuite/tests/pp/V203-009/test.out b/testsuite/tests/pp/V203-009/test.out index c751d0d3..e96e19e0 100644 --- a/testsuite/tests/pp/V203-009/test.out +++ b/testsuite/tests/pp/V203-009/test.out @@ -1,4 +1,4 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- diff --git a/testsuite/tests/pp/V308-029/test.out b/testsuite/tests/pp/V308-029/test.out index feffbf86..54b8bf42 100644 --- a/testsuite/tests/pp/V308-029/test.out +++ b/testsuite/tests/pp/V308-029/test.out @@ -1,8 +1,8 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- diff --git a/testsuite/tests/pp/V405-022/test.out b/testsuite/tests/pp/V405-022/test.out index feffbf86..54b8bf42 100644 --- a/testsuite/tests/pp/V405-022/test.out +++ b/testsuite/tests/pp/V405-022/test.out @@ -1,8 +1,8 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- diff --git a/testsuite/tests/pp/V414-004/test.out b/testsuite/tests/pp/V414-004/test.out index 04e1e75d..a717ebf8 100644 --- a/testsuite/tests/pp/V414-004/test.out +++ b/testsuite/tests/pp/V414-004/test.out @@ -1,6 +1,6 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- procedure Test is type T is (A, B, C); diff --git a/testsuite/tests/pp/V523-046/test.out b/testsuite/tests/pp/V523-046/test.out index c94424d5..acf6db25 100644 --- a/testsuite/tests/pp/V523-046/test.out +++ b/testsuite/tests/pp/V523-046/test.out @@ -1,12 +1,12 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- diff --git a/testsuite/tests/pp/V901-006/test.out b/testsuite/tests/pp/V901-006/test.out index d9784038..84788df1 100644 --- a/testsuite/tests/pp/V901-006/test.out +++ b/testsuite/tests/pp/V901-006/test.out @@ -1,6 +1,6 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- Units remaining: 3 Units remaining: 2 diff --git a/testsuite/tests/pp/VA11-017/test.out b/testsuite/tests/pp/VA11-017/test.out index c751d0d3..e96e19e0 100644 --- a/testsuite/tests/pp/VA11-017/test.out +++ b/testsuite/tests/pp/VA11-017/test.out @@ -1,4 +1,4 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- diff --git a/testsuite/tests/pp/VA11-017_insert_blank_lines/test.out b/testsuite/tests/pp/VA11-017_insert_blank_lines/test.out index c751d0d3..e96e19e0 100644 --- a/testsuite/tests/pp/VA11-017_insert_blank_lines/test.out +++ b/testsuite/tests/pp/VA11-017_insert_blank_lines/test.out @@ -1,4 +1,4 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- diff --git a/testsuite/tests/pp/VA11-018/test.out b/testsuite/tests/pp/VA11-018/test.out index c751d0d3..e96e19e0 100644 --- a/testsuite/tests/pp/VA11-018/test.out +++ b/testsuite/tests/pp/VA11-018/test.out @@ -1,4 +1,4 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- diff --git a/testsuite/tests/pp/VB25-014/test.out b/testsuite/tests/pp/VB25-014/test.out index da988a8e..fbe631b4 100644 --- a/testsuite/tests/pp/VB25-014/test.out +++ b/testsuite/tests/pp/VB25-014/test.out @@ -1,8 +1,8 @@ -Default layout - -Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- - +Default layout + +Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. +----- + procedure Main is type My_Enum is (One, @@ -12,32 +12,32 @@ procedure Main is begin null; end Main; -Minimal layout - -Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- - +Minimal layout + +Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. +----- + procedure Main is type My_Enum is (One, Two, Three, Four); begin null; end Main; -Compact layout - -Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- - +Compact layout + +Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. +----- + procedure Main is type My_Enum is (One, Two, Three, Four); begin null; end Main; -Tall layout - -Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- - +Tall layout + +Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. +----- + procedure Main is type My_Enum is @@ -49,11 +49,11 @@ procedure Main is begin null; end Main; -Shorthand Tall layout with space syntax - -Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- - +Shorthand Tall layout with space syntax + +Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. +----- + procedure Main is type My_Enum is diff --git a/testsuite/tests/pp/VC19-020-split/test.out b/testsuite/tests/pp/VC19-020-split/test.out index 4351abb7..b2effc97 100644 --- a/testsuite/tests/pp/VC19-020-split/test.out +++ b/testsuite/tests/pp/VC19-020-split/test.out @@ -1,7 +1,7 @@ Testing --split-line-before-op switch Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- procedure Main is type My_Range is range 1 .. 100; diff --git a/testsuite/tests/pp/VC19-020/test.out b/testsuite/tests/pp/VC19-020/test.out index c71927e9..8394fa54 100644 --- a/testsuite/tests/pp/VC19-020/test.out +++ b/testsuite/tests/pp/VC19-020/test.out @@ -1,9 +1,9 @@ -Testing --layout switch -1 --layout=default - -Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- - +Testing --layout switch +1 --layout=default + +Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. +----- + procedure Main is type My_Range is range 1 .. 100; subtype First_Dozen is My_Range with @@ -36,12 +36,12 @@ procedure Main is begin null; end Main; ---------------------------------------------------- -2 --layout=minimal - -Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- - +--------------------------------------------------- +2 --layout=minimal + +Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. +----- + procedure Main is type My_Range is range 1 .. 100; subtype First_Dozen is My_Range with @@ -55,12 +55,12 @@ procedure Main is begin null; end Main; ---------------------------------------------------- -3 --layout=tall - -Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- - +--------------------------------------------------- +3 --layout=tall + +Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. +----- + procedure Main is type My_Range is range 1 .. 100; @@ -94,12 +94,12 @@ procedure Main is begin null; end Main; ---------------------------------------------------- -4 --layout=compact - -Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- - +--------------------------------------------------- +4 --layout=compact + +Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. +----- + procedure Main is type My_Range is range 1 .. 100; subtype First_Dozen is My_Range with diff --git a/testsuite/tests/pp/W213-015/test.out b/testsuite/tests/pp/W213-015/test.out index 2b2388cb..92dd93cd 100644 --- a/testsuite/tests/pp/W213-015/test.out +++ b/testsuite/tests/pp/W213-015/test.out @@ -1,6 +1,6 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- Units remaining: 2 package body Example is diff --git a/testsuite/tests/pp/agg.P510-022/test.out b/testsuite/tests/pp/agg.P510-022/test.out index a24c7649..0d12cec8 100644 --- a/testsuite/tests/pp/agg.P510-022/test.out +++ b/testsuite/tests/pp/agg.P510-022/test.out @@ -1,7 +1,7 @@ test number 1 Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- PACKAGE a1 IS I : Integer; @@ -9,7 +9,7 @@ END a1; test number 2 Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- PACKAGE a IS TYPE Int IS RANGE 1 .. 10; @@ -22,15 +22,15 @@ END a; test number 3 Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- ---------------- src_c/c.ads diff --git a/testsuite/tests/pp/issue_24/test.out b/testsuite/tests/pp/issue_24/test.out index b26b9cc1..725821ca 100644 --- a/testsuite/tests/pp/issue_24/test.out +++ b/testsuite/tests/pp/issue_24/test.out @@ -1,4 +1,4 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- diff --git a/testsuite/tests/pp/issue_38/test.out b/testsuite/tests/pp/issue_38/test.out index feffbf86..54b8bf42 100644 --- a/testsuite/tests/pp/issue_38/test.out +++ b/testsuite/tests/pp/issue_38/test.out @@ -1,8 +1,8 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- diff --git a/testsuite/tests/pp/issue_39/test.out b/testsuite/tests/pp/issue_39/test.out index 9d2b11f3..b27960aa 100644 --- a/testsuite/tests/pp/issue_39/test.out +++ b/testsuite/tests/pp/issue_39/test.out @@ -1,6 +1,6 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- procedure Main is begin @@ -11,7 +11,7 @@ begin end Main; Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- procedure Main is begin diff --git a/testsuite/tests/pp/issue_45/test.out b/testsuite/tests/pp/issue_45/test.out index feffbf86..54b8bf42 100644 --- a/testsuite/tests/pp/issue_45/test.out +++ b/testsuite/tests/pp/issue_45/test.out @@ -1,8 +1,8 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- diff --git a/testsuite/tests/pp/issue_66/test.out b/testsuite/tests/pp/issue_66/test.out index 2a307ad1..4f7fff83 100644 --- a/testsuite/tests/pp/issue_66/test.out +++ b/testsuite/tests/pp/issue_66/test.out @@ -1,6 +1,6 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- with Ada.Containers.Indefinite_Ordered_Maps; diff --git a/testsuite/tests/pp/issue_82/test.out b/testsuite/tests/pp/issue_82/test.out index c751d0d3..e96e19e0 100644 --- a/testsuite/tests/pp/issue_82/test.out +++ b/testsuite/tests/pp/issue_82/test.out @@ -1,4 +1,4 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- diff --git a/testsuite/tests/pp/issue_94_W601-007/test.out b/testsuite/tests/pp/issue_94_W601-007/test.out index 5b59fe04..ecd6981e 100644 --- a/testsuite/tests/pp/issue_94_W601-007/test.out +++ b/testsuite/tests/pp/issue_94_W601-007/test.out @@ -1,6 +1,6 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- package Test is @@ -21,7 +21,7 @@ package Test is end Test; Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- package Test is diff --git a/testsuite/tests/pp/issue_95/test.out b/testsuite/tests/pp/issue_95/test.out index 8636e378..4f2ccbd7 100644 --- a/testsuite/tests/pp/issue_95/test.out +++ b/testsuite/tests/pp/issue_95/test.out @@ -1,6 +1,6 @@ Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- package Test is @@ -20,7 +20,7 @@ package Test is end Test; Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program. -------- +----- package Test is