This addresses PR119933, although I absent-mindedly neglected to mention that in the commit.
>From 2a77497339d230d6e02026851b1d9c31bcf031a8 Mon Sep 17 00:00:00 2001 From: Robert Dubner <[email protected]> Date: Wed, 17 Jun 2026 18:46:01 -0400 Subject: [PATCH] cobol: Remove obsolete and renamed DejaGNU tests. gcc/testsuite/ChangeLog: * cobol.dg/group2/258_Nested_PERFORM.cob: Removed. * cobol.dg/group2/258_Nested_PERFORM.out: Removed. * cobol.dg/group2/259_PERFORM_VARYING_BY_-0.2.cob: Removed. * cobol.dg/group2/259_PERFORM_VARYING_BY_-0.2.out: Removed. * cobol.dg/group2/338_Default_Arithmetic__1_.cob: Removed. * cobol.dg/group2/338_Default_Arithmetic__1_.out: Removed. * cobol.dg/group2/Complex_HEX__VALUE_and_MOVE.cob: Removed. * cobol.dg/group2/Complex_HEX__VALUE_and_MOVE.out: Removed. * cobol.dg/group2/Intrinsics_without_FUNCTION_keyword__2_.cob: Removed. * cobol.dg/group2/MOVE_to_JUSTIFIED_item.cob: Removed. * cobol.dg/group2/MOVE_to_JUSTIFIED_item.out: Removed. * cobol.dg/group2/SORT__table_sort__2_.cob: Removed. * cobol.dg/group2/SORT__table_sort__2_.out: Removed. * cobol.dg/group2/_-static__compilation.cob: Removed. --- .../cobol.dg/group2/258_Nested_PERFORM.cob | 16 ---- .../cobol.dg/group2/258_Nested_PERFORM.out | 1 - .../group2/259_PERFORM_VARYING_BY_-0.2.cob | 19 ---- .../group2/259_PERFORM_VARYING_BY_-0.2.out | 1 - .../group2/338_Default_Arithmetic__1_.cob | 75 --------------- .../group2/338_Default_Arithmetic__1_.out | 21 ---- .../group2/Complex_HEX__VALUE_and_MOVE.cob | 76 --------------- .../group2/Complex_HEX__VALUE_and_MOVE.out | 16 ---- ...ntrinsics_without_FUNCTION_keyword__2_.cob | 17 ---- .../group2/MOVE_to_JUSTIFIED_item.cob | 31 ------ .../group2/MOVE_to_JUSTIFIED_item.out | 6 -- .../cobol.dg/group2/SORT__table_sort__2_.cob | 96 ------------------- .../cobol.dg/group2/SORT__table_sort__2_.out | 22 ----- .../cobol.dg/group2/_-static__compilation.cob | 10 -- 14 files changed, 407 deletions(-) delete mode 100644 gcc/testsuite/cobol.dg/group2/258_Nested_PERFORM.cob delete mode 100644 gcc/testsuite/cobol.dg/group2/258_Nested_PERFORM.out delete mode 100644 gcc/testsuite/cobol.dg/group2/259_PERFORM_VARYING_BY_-0.2.cob delete mode 100644 gcc/testsuite/cobol.dg/group2/259_PERFORM_VARYING_BY_-0.2.out delete mode 100644 gcc/testsuite/cobol.dg/group2/338_Default_Arithmetic__1_.cob delete mode 100644 gcc/testsuite/cobol.dg/group2/338_Default_Arithmetic__1_.out delete mode 100644 gcc/testsuite/cobol.dg/group2/Complex_HEX__VALUE_and_MOVE.cob delete mode 100644 gcc/testsuite/cobol.dg/group2/Complex_HEX__VALUE_and_MOVE.out delete mode 100644 gcc/testsuite/cobol.dg/group2/Intrinsics_without_FUNCTION_keyword__2_.cob delete mode 100644 gcc/testsuite/cobol.dg/group2/MOVE_to_JUSTIFIED_item.cob delete mode 100644 gcc/testsuite/cobol.dg/group2/MOVE_to_JUSTIFIED_item.out delete mode 100644 gcc/testsuite/cobol.dg/group2/SORT__table_sort__2_.cob delete mode 100644 gcc/testsuite/cobol.dg/group2/SORT__table_sort__2_.out delete mode 100644 gcc/testsuite/cobol.dg/group2/_-static__compilation.cob diff --git a/gcc/testsuite/cobol.dg/group2/258_Nested_PERFORM.cob b/gcc/testsuite/cobol.dg/group2/258_Nested_PERFORM.cob deleted file mode 100644 index 383cd0a7642..00000000000 --- a/gcc/testsuite/cobol.dg/group2/258_Nested_PERFORM.cob +++ /dev/null @@ -1,16 +0,0 @@ - *> { dg-do run } - *> { dg-output-file "group2/258_Nested_PERFORM.out" } - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - PROCEDURE DIVISION. - PERFORM 2 TIMES - DISPLAY "X" NO ADVANCING - END-DISPLAY - PERFORM 2 TIMES - DISPLAY "Y" NO ADVANCING - END-DISPLAY - END-PERFORM - END-PERFORM. - STOP RUN. - diff --git a/gcc/testsuite/cobol.dg/group2/258_Nested_PERFORM.out b/gcc/testsuite/cobol.dg/group2/258_Nested_PERFORM.out deleted file mode 100644 index 3c3d159fa1a..00000000000 --- a/gcc/testsuite/cobol.dg/group2/258_Nested_PERFORM.out +++ /dev/null @@ -1 +0,0 @@ -XYYXYY diff --git a/gcc/testsuite/cobol.dg/group2/259_PERFORM_VARYING_BY_-0.2.cob b/gcc/testsuite/cobol.dg/group2/259_PERFORM_VARYING_BY_-0.2.cob deleted file mode 100644 index 295caf5d72e..00000000000 --- a/gcc/testsuite/cobol.dg/group2/259_PERFORM_VARYING_BY_-0.2.cob +++ /dev/null @@ -1,19 +0,0 @@ - *> { dg-do run } - *> { dg-output-file "group2/259_PERFORM_VARYING_BY_-0.2.out" } - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 77 X PIC 9v9. - PROCEDURE DIVISION. - PERFORM VARYING X FROM 0.8 BY -0.2 - UNTIL X < 0.4 - DISPLAY "X" NO ADVANCING - END-DISPLAY - END-PERFORM. - IF X NOT = 0.2 - DISPLAY "WRONG X: " X END-DISPLAY - END-IF - STOP RUN. - diff --git a/gcc/testsuite/cobol.dg/group2/259_PERFORM_VARYING_BY_-0.2.out b/gcc/testsuite/cobol.dg/group2/259_PERFORM_VARYING_BY_-0.2.out deleted file mode 100644 index dd6d86a43dc..00000000000 --- a/gcc/testsuite/cobol.dg/group2/259_PERFORM_VARYING_BY_-0.2.out +++ /dev/null @@ -1 +0,0 @@ -XXX diff --git a/gcc/testsuite/cobol.dg/group2/338_Default_Arithmetic__1_.cob b/gcc/testsuite/cobol.dg/group2/338_Default_Arithmetic__1_.cob deleted file mode 100644 index 5405dbaf01b..00000000000 --- a/gcc/testsuite/cobol.dg/group2/338_Default_Arithmetic__1_.cob +++ /dev/null @@ -1,75 +0,0 @@ - *> { dg-do run } - *> { dg-output-file "group2/338_Default_Arithmetic__1_.out" } - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 NUM-A PIC 9(3) VALUE 399. - 01 NUM-B PIC 9(3) VALUE 211. - 01 NUM-C PIC 9(3)V99 VALUE 212.34. - 01 NUMV1 PIC 9(3)V9. - 01 PICX PIC X VALUE 'A'. - 01 RSLT PIC 9(3). - 01 RSLTV1 PIC 9(3).9. - 01 RSLTV2 PIC 9(3).99. - * - PROCEDURE DIVISION. - MAIN. - COMPUTE RSLT = NUM-A + 1.1. - DISPLAY 'Simple Compute RSLT IS ' RSLT - COMPUTE RSLT = ((NUM-A / 100) - (NUM-B / 100)) * 100 - DISPLAY 'Single Variable RSLT IS ' RSLT - COMPUTE RSLTV2, RSLT = ((NUM-A / 100) - (NUM-B / 100)) * 100 - DISPLAY 'Compute RSLT IS ' RSLT - DISPLAY 'Compute RSLTv99 IS ' RSLTV2 - COMPUTE RSLTV1, RSLT = ((NUM-A / 100) - (NUM-B / 100)) * 100 - DISPLAY 'Compute RSLT IS ' RSLT - DISPLAY 'Compute RSLTv9 IS ' RSLTV1 - MOVE 0 TO RSLT - ADD NUM-C TO RSLT. - DISPLAY 'Add RSLT IS ' RSLT. - MOVE 0 TO RSLT - ADD NUM-A NUM-C 10 TO RSLT. - DISPLAY 'Add RSLT IS ' RSLT. - SUBTRACT NUM-C FROM RSLT. - DISPLAY 'Subtract RSLT IS ' RSLT. - SUBTRACT NUM-A -10 FROM RSLT. - DISPLAY 'Subtract RSLT IS ' RSLT. - MOVE 0 TO RSLT - ADD NUM-A NUM-C TO RSLT GIVING RSLTV1. - DISPLAY 'Add RSLTv9 IS ' RSLTV1 - MULTIPLY NUM-A BY NUM-C GIVING RSLT. - DISPLAY 'Multiply RSLT IS ' RSLT. - MULTIPLY RSLT BY NUM-C. - DISPLAY 'Multiply RSLT IS ' RSLT. - DIVIDE NUM-A BY 10 GIVING RSLT. - DISPLAY 'Divide RSLT IS ' RSLT. - DIVIDE RSLT BY 4 GIVING RSLTV1. - DISPLAY 'Divide RSLTv9 IS ' RSLTV1. - DIVIDE RSLT BY 4 GIVING RSLT. - DISPLAY 'Divide RSLT IS ' RSLT. - - COMPUTE RSLTV1, RSLT = ((NUM-A / 100) - (NUM-B / 100)) * 100 - DISPLAY 'Simple RSLT IS ' RSLT - ' RSLTv9 IS ' RSLTV1. - - COMPUTE RSLTV1, RSLT = ((NUM-A / (100.55 + -0.550)) - - (NUM-B / (10.11 * 10 - 1.1))) - * (220 / 2.2) - DISPLAY 'Complex RSLT IS ' RSLT - ' RSLTv9 IS ' RSLTV1. - - COMPUTE RSLTV1, RSLT = ((NUM-A / (101 - 1)) - - (NUM-B / (10 * 10))) * (200 / 2) - DISPLAY 'Reduced RSLT IS ' RSLT - ' RSLTv9 IS ' RSLTV1. - MOVE NUM-A TO NUMV1. - IF ((NUMV1 / (101 - 1)) - - (NUM-B / (10 * 10))) * (200 / 2) EQUAL 188 - DISPLAY "Not Using ARITHMETIC-OSVS" - ELSE - DISPLAY "Using ARITHMETIC-OSVS" - END-IF. - STOP RUN. - diff --git a/gcc/testsuite/cobol.dg/group2/338_Default_Arithmetic__1_.out b/gcc/testsuite/cobol.dg/group2/338_Default_Arithmetic__1_.out deleted file mode 100644 index 3137fc4d795..00000000000 --- a/gcc/testsuite/cobol.dg/group2/338_Default_Arithmetic__1_.out +++ /dev/null @@ -1,21 +0,0 @@ -Simple Compute RSLT IS 400 -Single Variable RSLT IS 188 -Compute RSLT IS 188 -Compute RSLTv99 IS 188.00 -Compute RSLT IS 188 -Compute RSLTv9 IS 188.0 -Add RSLT IS 212 -Add RSLT IS 621 -Subtract RSLT IS 408 -Subtract RSLT IS 019 -Add RSLTv9 IS 611.3 -Multiply RSLT IS 723 -Multiply RSLT IS 723 -Divide RSLT IS 039 -Divide RSLTv9 IS 009.7 -Divide RSLT IS 009 -Simple RSLT IS 188 RSLTv9 IS 188.0 -Complex RSLT IS 188 RSLTv9 IS 188.0 -Reduced RSLT IS 188 RSLTv9 IS 188.0 -Not Using ARITHMETIC-OSVS - diff --git a/gcc/testsuite/cobol.dg/group2/Complex_HEX__VALUE_and_MOVE.cob b/gcc/testsuite/cobol.dg/group2/Complex_HEX__VALUE_and_MOVE.cob deleted file mode 100644 index 797c6feb6fa..00000000000 --- a/gcc/testsuite/cobol.dg/group2/Complex_HEX__VALUE_and_MOVE.cob +++ /dev/null @@ -1,76 +0,0 @@ - *> { dg-do run } - *> { dg-output-file "group2/Complex_HEX__VALUE_and_MOVE.out" } - - identification division. - program-id. hex-init. - data division. - working-storage section. - 01 var-01020304. - 05 filler1. - 10 filler2 pic x(2) VALUE "33". - 10 as-value pic x(4) VALUE X'01020304'. - 10 filler3 pic x(2) VALUE "33". - 05 as-pointer redefines filler1 usage pointer. - - 01 var-low. - 05 filler1. - 10 filler2 pic x(2) VALUE "33". - 10 as-value pic x(4) VALUE LOW-VALUES. - 10 filler3 pic x(2) VALUE "33". - 05 as-pointer redefines filler1 usage pointer. - 01 var-space. - 05 filler1. - 10 filler2 pic x(2) VALUE "33". - 10 as-value pic x(4) VALUE SPACE. - 10 filler3 pic x(2) VALUE "33". - 05 as-pointer redefines filler1 usage pointer. - 01 var-quote. - 05 filler1. - 10 filler2 pic x(2) VALUE "33". - 10 as-value pic x(4) VALUE QUOTE. - 10 filler3 pic x(2) VALUE "33". - 05 as-pointer redefines filler1 usage pointer. - 01 var-zero. - 05 filler1. - 10 filler2 pic x(2) VALUE "33". - 10 as-value pic x(4) VALUE ZERO. - 10 filler3 pic x(2) VALUE "33". - 05 as-pointer redefines filler1 usage pointer. - 01 var-high. - 05 filler1. - 10 filler2 pic x(2) VALUE "33". - 10 as-value pic x(4) VALUE HIGH-VALUES. - 10 filler3 pic x(2) VALUE "33". - 05 as-pointer redefines filler1 usage pointer. - 01 move-target. - 05 filler1. - 10 filler2 pic x(2) VALUE "33". - 10 as-value pic x(4) VALUE "3333". - 10 filler3 pic x(2) VALUE "33". - 05 as-pointer redefines filler1 usage pointer. - procedure division. - display "the value is " as-pointer of var-01020304. - display "should be 0x3333040302013333" - display "var-low : " as-pointer of var-low - display "var-space: " as-pointer of var-space - display "var-quote: " as-pointer of var-quote - display "var-zero : " as-pointer of var-zero - display "var-high : " as-pointer of var-high - display "initial " as-pointer of move-target - move low-value to as-value of move-target - display "low-value " as-pointer of move-target - move space to as-value of move-target - display "space " as-pointer of move-target - move quote to as-value of move-target - display "quote " as-pointer of move-target - move zeroes to as-value of move-target - display "zeroes " as-pointer of move-target - move high-value to as-value of move-target - display "high-value " as-pointer of move-target - move X'01020304' to as-value of move-target - display "01020304 " as-pointer of move-target - move "33333333" to move-target - move X'00' to filler3 of move-target(1:1) - display "ref-mod " as-pointer of move-target - stop run. - diff --git a/gcc/testsuite/cobol.dg/group2/Complex_HEX__VALUE_and_MOVE.out b/gcc/testsuite/cobol.dg/group2/Complex_HEX__VALUE_and_MOVE.out deleted file mode 100644 index 366d0c2b40e..00000000000 --- a/gcc/testsuite/cobol.dg/group2/Complex_HEX__VALUE_and_MOVE.out +++ /dev/null @@ -1,16 +0,0 @@ -the value is 0x3333040302013333 -should be 0x3333040302013333 -var-low : 0x3333000000003333 -var-space: 0x3333202020203333 -var-quote: 0x3333222222223333 -var-zero : 0x3333303030303333 -var-high : 0x3333ffffffff3333 -initial 0x3333333333333333 -low-value 0x3333000000003333 -space 0x3333202020203333 -quote 0x3333222222223333 -zeroes 0x3333303030303333 -high-value 0x3333ffffffff3333 -01020304 0x3333040302013333 -ref-mod 0x3300333333333333 - diff --git a/gcc/testsuite/cobol.dg/group2/Intrinsics_without_FUNCTION_keyword__2_.co b b/gcc/testsuite/cobol.dg/group2/Intrinsics_without_FUNCTION_keyword__2_.co b deleted file mode 100644 index 39a0c5b33da..00000000000 --- a/gcc/testsuite/cobol.dg/group2/Intrinsics_without_FUNCTION_keyword__2_.co b +++ /dev/null @@ -1,17 +0,0 @@ - *> { dg-do run } - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - ENVIRONMENT DIVISION. - CONFIGURATION SECTION. - REPOSITORY. - FUNCTION PI INTRINSIC - FUNCTION E INTRINSIC. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 Z PIC 99V99. - PROCEDURE DIVISION. - MOVE PI TO Z. - MOVE E TO Z. - STOP RUN. - diff --git a/gcc/testsuite/cobol.dg/group2/MOVE_to_JUSTIFIED_item.cob b/gcc/testsuite/cobol.dg/group2/MOVE_to_JUSTIFIED_item.cob deleted file mode 100644 index 37f813facf8..00000000000 --- a/gcc/testsuite/cobol.dg/group2/MOVE_to_JUSTIFIED_item.cob +++ /dev/null @@ -1,31 +0,0 @@ - *> { dg-do run } - *> { dg-output-file "group2/MOVE_to_JUSTIFIED_item.out" } - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 SRC-1 PIC S9(04) VALUE 11. - 01 SRC-2 PIC S9(04) COMP VALUE 22. - 01 SRC-3 PIC S9(04) COMP-5 VALUE 33. - 01 SRC-4 PIC S9(04)PP VALUE 4400. - 01 SRC-5 PIC S9(04)PPPPP VALUE 55500000. - 01 EDT-FLD PIC X(07) JUSTIFIED RIGHT. - PROCEDURE DIVISION. - MOVE SRC-1 TO EDT-FLD. - DISPLAY '>' EDT-FLD '<' - END-DISPLAY. - MOVE SRC-2 TO EDT-FLD. - DISPLAY '>' EDT-FLD '<' - END-DISPLAY. - MOVE SRC-3 TO EDT-FLD. - DISPLAY '>' EDT-FLD '<' - END-DISPLAY. - MOVE SRC-4 TO EDT-FLD. - DISPLAY '>' EDT-FLD '<' - END-DISPLAY. - MOVE SRC-5 TO EDT-FLD. - DISPLAY '>' EDT-FLD '<' - END-DISPLAY. - STOP RUN. - diff --git a/gcc/testsuite/cobol.dg/group2/MOVE_to_JUSTIFIED_item.out b/gcc/testsuite/cobol.dg/group2/MOVE_to_JUSTIFIED_item.out deleted file mode 100644 index 5e300fad59a..00000000000 --- a/gcc/testsuite/cobol.dg/group2/MOVE_to_JUSTIFIED_item.out +++ /dev/null @@ -1,6 +0,0 @@ -> 0011< -> 0022< -> 0033< -> 004400< ->5500000< - diff --git a/gcc/testsuite/cobol.dg/group2/SORT__table_sort__2_.cob b/gcc/testsuite/cobol.dg/group2/SORT__table_sort__2_.cob deleted file mode 100644 index d30b4ea93bd..00000000000 --- a/gcc/testsuite/cobol.dg/group2/SORT__table_sort__2_.cob +++ /dev/null @@ -1,96 +0,0 @@ - *> { dg-do run } - *> { dg-output-file "group2/SORT__table_sort__2_.out" } - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - ENVIRONMENT DIVISION. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 K PIC 9(2). - - 01 CNT1 PIC 9(9) COMP-5 VALUE 4. - 01 TAB1. - 05 ROW1 OCCURS 1 TO 4 DEPENDING CNT1 - DESCENDING TAB1-NR. - 10 TAB1-NR PIC 99. - - 01 TAB2. - 05 CNT2 PIC 9(9) COMP-5 VALUE 4. - 05 ROW2 OCCURS 1 TO 4 DEPENDING CNT2 - DESCENDING TAB2-NR. - 10 TAB2-NR PIC 99. - - 01 TAB3. - 05 CNT3 PIC 9(9) COMP-5 VALUE 10. - 05 ROW3 OCCURS 1 TO 10 DEPENDING CNT3 - DESCENDING TAB3-NR - ASCENDING TAB3-DATA. - 10 TAB3-NR PIC 99. - 10 FILLER PIC X(2). - 10 TAB3-DATA PIC X(5). - 10 FILLER PIC X(2). - 10 TAB3-DATA2 PIC X(5). - - - PROCEDURE DIVISION. - A. - PERFORM VARYING K FROM 1 BY 1 UNTIL K > 4 - MOVE K TO TAB1-NR(K), TAB2-NR(K) - END-PERFORM - - MOVE 1 TO TAB3-NR(1). - MOVE 1 TO TAB3-NR(8). - MOVE 1 TO TAB3-NR(4). - MOVE 6 TO TAB3-NR(2). - MOVE 5 TO TAB3-NR(3). - MOVE 5 TO TAB3-NR(9). - MOVE 2 TO TAB3-NR(5). - MOVE 2 TO TAB3-NR(10). - MOVE 4 TO TAB3-NR(6). - MOVE 3 TO TAB3-NR(7). - - MOVE "abcde" TO TAB3-DATA(1). - MOVE "AbCde" TO TAB3-DATA(2). - MOVE "abcde" TO TAB3-DATA(3). - MOVE "zyx" TO TAB3-DATA(4). - MOVE "12345" TO TAB3-DATA(5). - MOVE "zyx" TO TAB3-DATA(6). - MOVE "abcde" TO TAB3-DATA(7). - MOVE "AbCde" TO TAB3-DATA(8). - MOVE "abc" TO TAB3-DATA(9). - MOVE "12346" TO TAB3-DATA(10). - - MOVE "day" TO TAB3-DATA2(1). - MOVE "The" TO TAB3-DATA2(2). - MOVE "eats" TO TAB3-DATA2(3). - MOVE "." TO TAB3-DATA2(4). - MOVE "mooos" TO TAB3-DATA2(5). - MOVE "grass" TO TAB3-DATA2(6). - MOVE "and" TO TAB3-DATA2(7). - MOVE "whole" TO TAB3-DATA2(8). - MOVE "cow" TO TAB3-DATA2(9). - MOVE "the" TO TAB3-DATA2(10). - - SORT ROW1 DESCENDING TAB1-NR - SORT ROW2 DESCENDING TAB2-NR - - DISPLAY "SINGLE TABLE" END-DISPLAY - PERFORM VARYING K FROM 1 BY 1 UNTIL K > 4 - DISPLAY TAB1-NR(K) END-DISPLAY - END-PERFORM - - DISPLAY "LOWER LEVEL TABLE" END-DISPLAY - PERFORM VARYING K FROM 1 BY 1 UNTIL K > 4 - DISPLAY TAB2-NR(K) END-DISPLAY - END-PERFORM - - SORT ROW3 DESCENDING TAB3-NR ASCENDING TAB3-DATA - - DISPLAY "MULTY KEY SORT" END-DISPLAY - PERFORM VARYING K FROM 1 BY 1 UNTIL K > 10 - DISPLAY FUNCTION TRIM(ROW3(K)) - END-DISPLAY - END-PERFORM - - STOP RUN. - diff --git a/gcc/testsuite/cobol.dg/group2/SORT__table_sort__2_.out b/gcc/testsuite/cobol.dg/group2/SORT__table_sort__2_.out deleted file mode 100644 index 5866ecfdfc9..00000000000 --- a/gcc/testsuite/cobol.dg/group2/SORT__table_sort__2_.out +++ /dev/null @@ -1,22 +0,0 @@ -SINGLE TABLE -04 -03 -02 -01 -LOWER LEVEL TABLE -04 -03 -02 -01 -MULTY KEY SORT -06 AbCde The -05 abc cow -05 abcde eats -04 zyx grass -03 abcde and -02 12345 mooos -02 12346 the -01 AbCde whole -01 abcde day -01 zyx . - diff --git a/gcc/testsuite/cobol.dg/group2/_-static__compilation.cob b/gcc/testsuite/cobol.dg/group2/_-static__compilation.cob deleted file mode 100644 index f344a84c398..00000000000 --- a/gcc/testsuite/cobol.dg/group2/_-static__compilation.cob +++ /dev/null @@ -1,10 +0,0 @@ - *> { dg-do run } - *> { dg-options "-static" } - *> { dg-prune-output {warning} } - *> { dg-output {hello, world} } - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - PROCEDURE DIVISION. - DISPLAY "hello, world". - end program prog. - -- 2.34.1
