'dg-compile' is not a thing, replace it with 'dg-do compile'.
PR target/68015
PR c++/83979
* c-c++-common/goacc/loop-shape.c: Fix 'dg-compile' typo.
* g++.dg/pr83979.C: Likewise.
* g++.target/aarch64/sve/acle/general-c++/attributes_2.C: Likewise.
* gcc.dg/tree-ssa/builtin-sprintf-7.c: Likewise.
* gcc.dg/tree-ssa/builtin-sprintf-8.c: Likewise.
* gcc.target/riscv/amo/zabha-rvwmo-all-amo-ops-char.c: Likewise.
* gcc.target/riscv/amo/zabha-rvwmo-all-amo-ops-short.c: Likewise.
* gcc.target/s390/20181024-1.c: Likewise.
* gcc.target/s390/addr-constraints-1.c: Likewise.
* gcc.target/s390/arch12/aghsghmgh-1.c: Likewise.
* gcc.target/s390/arch12/mul-1.c: Likewise.
* gcc.target/s390/arch13/bitops-1.c: Likewise.
* gcc.target/s390/arch13/bitops-2.c: Likewise.
* gcc.target/s390/arch13/fp-signedint-convert-1.c: Likewise.
* gcc.target/s390/arch13/fp-unsignedint-convert-1.c: Likewise.
* gcc.target/s390/arch13/popcount-1.c: Likewise.
* gcc.target/s390/pr68015.c: Likewise.
* gcc.target/s390/vector/fp-signedint-convert-1.c: Likewise.
* gcc.target/s390/vector/fp-unsignedint-convert-1.c: Likewise.
* gcc.target/s390/vector/reverse-elements-1.c: Likewise.
* gcc.target/s390/vector/reverse-elements-2.c: Likewise.
* gcc.target/s390/vector/reverse-elements-3.c: Likewise.
* gcc.target/s390/vector/reverse-elements-4.c: Likewise.
* gcc.target/s390/vector/reverse-elements-5.c: Likewise.
* gcc.target/s390/vector/reverse-elements-6.c: Likewise.
* gcc.target/s390/vector/reverse-elements-7.c: Likewise.
* gnat.dg/alignment15.adb: Likewise.
* gnat.dg/debug4.adb: Likewise.
* gnat.dg/inline21.adb: Likewise.
* gnat.dg/inline22.adb: Likewise.
* gnat.dg/opt37.adb: Likewise.
* gnat.dg/warn13.adb: Likewise.
---
Committed as obvious. No changes in logs.
gcc/testsuite/c-c++-common/goacc/loop-shape.c | 2 +-
gcc/testsuite/g++.dg/pr83979.C | 2 +-
.../g++.target/aarch64/sve/acle/general-c++/attributes_2.C | 2 +-
gcc/testsuite/gcc.dg/tree-ssa/builtin-sprintf-7.c | 2 +-
gcc/testsuite/gcc.dg/tree-ssa/builtin-sprintf-8.c | 2 +-
.../gcc.target/riscv/amo/zabha-rvwmo-all-amo-ops-char.c | 2 +-
.../gcc.target/riscv/amo/zabha-rvwmo-all-amo-ops-short.c | 2 +-
gcc/testsuite/gcc.target/s390/20181024-1.c | 2 +-
gcc/testsuite/gcc.target/s390/addr-constraints-1.c | 2 +-
gcc/testsuite/gcc.target/s390/arch12/aghsghmgh-1.c | 2 +-
gcc/testsuite/gcc.target/s390/arch12/mul-1.c | 2 +-
gcc/testsuite/gcc.target/s390/arch13/bitops-1.c | 2 +-
gcc/testsuite/gcc.target/s390/arch13/bitops-2.c | 2 +-
gcc/testsuite/gcc.target/s390/arch13/fp-signedint-convert-1.c | 2 +-
gcc/testsuite/gcc.target/s390/arch13/fp-unsignedint-convert-1.c | 2 +-
gcc/testsuite/gcc.target/s390/arch13/popcount-1.c | 2 +-
gcc/testsuite/gcc.target/s390/pr68015.c | 2 +-
gcc/testsuite/gcc.target/s390/vector/fp-signedint-convert-1.c | 2 +-
gcc/testsuite/gcc.target/s390/vector/fp-unsignedint-convert-1.c | 2 +-
gcc/testsuite/gcc.target/s390/vector/reverse-elements-1.c | 2 +-
gcc/testsuite/gcc.target/s390/vector/reverse-elements-2.c | 2 +-
gcc/testsuite/gcc.target/s390/vector/reverse-elements-3.c | 2 +-
gcc/testsuite/gcc.target/s390/vector/reverse-elements-4.c | 2 +-
gcc/testsuite/gcc.target/s390/vector/reverse-elements-5.c | 2 +-
gcc/testsuite/gcc.target/s390/vector/reverse-elements-6.c | 2 +-
gcc/testsuite/gcc.target/s390/vector/reverse-elements-7.c | 2 +-
gcc/testsuite/gnat.dg/alignment15.adb | 2 +-
gcc/testsuite/gnat.dg/debug4.adb | 2 +-
gcc/testsuite/gnat.dg/inline21.adb | 2 +-
gcc/testsuite/gnat.dg/inline22.adb | 2 +-
gcc/testsuite/gnat.dg/opt37.adb | 2 +-
gcc/testsuite/gnat.dg/warn13.adb | 2 +-
32 files changed, 32 insertions(+), 32 deletions(-)
diff --git a/gcc/testsuite/c-c++-common/goacc/loop-shape.c
b/gcc/testsuite/c-c++-common/goacc/loop-shape.c
index 9708f7bf5eb3..b3199b4044d0 100644
--- a/gcc/testsuite/c-c++-common/goacc/loop-shape.c
+++ b/gcc/testsuite/c-c++-common/goacc/loop-shape.c
@@ -1,7 +1,7 @@
/* Exercise *_parser_oacc_shape_clause by checking various combinations
of gang, worker and vector clause arguments. */
-/* { dg-compile } */
+/* { dg-do compile } */
int main ()
{
diff --git a/gcc/testsuite/g++.dg/pr83979.C b/gcc/testsuite/g++.dg/pr83979.C
index a39b1ea6ab9b..0ef754d1e48d 100644
--- a/gcc/testsuite/g++.dg/pr83979.C
+++ b/gcc/testsuite/g++.dg/pr83979.C
@@ -1,4 +1,4 @@
-/* { dg-compile } */
+/* { dg-do compile } */
int
foo (char* p)
diff --git
a/gcc/testsuite/g++.target/aarch64/sve/acle/general-c++/attributes_2.C
b/gcc/testsuite/g++.target/aarch64/sve/acle/general-c++/attributes_2.C
index b55be02ecca2..c8f1ad403e67 100644
--- a/gcc/testsuite/g++.target/aarch64/sve/acle/general-c++/attributes_2.C
+++ b/gcc/testsuite/g++.target/aarch64/sve/acle/general-c++/attributes_2.C
@@ -1,4 +1,4 @@
-// { dg-compile }
+// { dg-do compile }
// { dg-additional-options "-msve-vector-bits=512" }
#include <arm_sve.h>
diff --git a/gcc/testsuite/gcc.dg/tree-ssa/builtin-sprintf-7.c
b/gcc/testsuite/gcc.dg/tree-ssa/builtin-sprintf-7.c
index 29954aabfdb4..eca4e9080926 100644
--- a/gcc/testsuite/gcc.dg/tree-ssa/builtin-sprintf-7.c
+++ b/gcc/testsuite/gcc.dg/tree-ssa/builtin-sprintf-7.c
@@ -1,6 +1,6 @@
/* PR tree-optimization/77671 - missing -Wformat-overflow warning
on sprintf overflow with "%s"
- { dg-compile }
+ { dg-do compile }
{ dg-options "-O2 -Wformat -Wno-format-zero-length -fdump-tree-optimized" }
*/
void sink (char*);
diff --git a/gcc/testsuite/gcc.dg/tree-ssa/builtin-sprintf-8.c
b/gcc/testsuite/gcc.dg/tree-ssa/builtin-sprintf-8.c
index 2d38d12bcc22..da1088c5fffd 100644
--- a/gcc/testsuite/gcc.dg/tree-ssa/builtin-sprintf-8.c
+++ b/gcc/testsuite/gcc.dg/tree-ssa/builtin-sprintf-8.c
@@ -5,7 +5,7 @@
be transformed into calls to other functions (such as memcpy)
are preserved.
- { dg-compile }
+ { dg-do compile }
{ dg-options "-O2 -Wformat -Wno-format-truncation -Wno-format-zero-length
-fdump-tree-optimized" } */
void sink (char*, ...);
diff --git a/gcc/testsuite/gcc.target/riscv/amo/zabha-rvwmo-all-amo-ops-char.c
b/gcc/testsuite/gcc.target/riscv/amo/zabha-rvwmo-all-amo-ops-char.c
index 85841fd7036c..58211207186c 100644
--- a/gcc/testsuite/gcc.target/riscv/amo/zabha-rvwmo-all-amo-ops-char.c
+++ b/gcc/testsuite/gcc.target/riscv/amo/zabha-rvwmo-all-amo-ops-char.c
@@ -1,5 +1,5 @@
/* Test __atomic routines for existence on 2 byte values with each valid
memory model. */
-/* { dg-compile } */
+/* { dg-do compile } */
/* { dg-options "-Wno-address-of-packed-member" } */
/* { dg-add-options riscv_zabha } */
/* { dg-remove-options riscv_ztso } */
diff --git a/gcc/testsuite/gcc.target/riscv/amo/zabha-rvwmo-all-amo-ops-short.c
b/gcc/testsuite/gcc.target/riscv/amo/zabha-rvwmo-all-amo-ops-short.c
index edc0a2c8f8e3..c846ca48d728 100644
--- a/gcc/testsuite/gcc.target/riscv/amo/zabha-rvwmo-all-amo-ops-short.c
+++ b/gcc/testsuite/gcc.target/riscv/amo/zabha-rvwmo-all-amo-ops-short.c
@@ -1,5 +1,5 @@
/* Test __atomic routines for existence on 2 byte values with each valid
memory model. */
-/* { dg-compile } */
+/* { dg-do compile } */
/* { dg-options "-Wno-address-of-packed-member" } */
/* { dg-add-options riscv_zabha } */
/* { dg-remove-options riscv_ztso } */
diff --git a/gcc/testsuite/gcc.target/s390/20181024-1.c
b/gcc/testsuite/gcc.target/s390/20181024-1.c
index 830ab5b927ce..66415ce9ce29 100644
--- a/gcc/testsuite/gcc.target/s390/20181024-1.c
+++ b/gcc/testsuite/gcc.target/s390/20181024-1.c
@@ -1,5 +1,5 @@
/* Make sure s390_check_qrst_address () correctly handles UNSPEC rtxs. */
-/* { dg-compile } */
+/* { dg-do compile } */
/* { dg-options "-march=z196 -O2 -fPIC" } */
int a, b, g, h;
diff --git a/gcc/testsuite/gcc.target/s390/addr-constraints-1.c
b/gcc/testsuite/gcc.target/s390/addr-constraints-1.c
index fbb48f282b3b..165a0828cc43 100644
--- a/gcc/testsuite/gcc.target/s390/addr-constraints-1.c
+++ b/gcc/testsuite/gcc.target/s390/addr-constraints-1.c
@@ -1,4 +1,4 @@
-/* { dg-compile } */
+/* { dg-do compile } */
/* { dg-options "-O2" } */
static inline unsigned long
diff --git a/gcc/testsuite/gcc.target/s390/arch12/aghsghmgh-1.c
b/gcc/testsuite/gcc.target/s390/arch12/aghsghmgh-1.c
index fc844c3e4042..29cbecb691c2 100644
--- a/gcc/testsuite/gcc.target/s390/arch12/aghsghmgh-1.c
+++ b/gcc/testsuite/gcc.target/s390/arch12/aghsghmgh-1.c
@@ -1,4 +1,4 @@
-/* { dg-compile } */
+/* { dg-do compile } */
long long
agh (long long a, short int *p)
diff --git a/gcc/testsuite/gcc.target/s390/arch12/mul-1.c
b/gcc/testsuite/gcc.target/s390/arch12/mul-1.c
index ef395356b72a..da0421b8385d 100644
--- a/gcc/testsuite/gcc.target/s390/arch12/mul-1.c
+++ b/gcc/testsuite/gcc.target/s390/arch12/mul-1.c
@@ -1,4 +1,4 @@
-/* { dg-compile } */
+/* { dg-do compile } */
int
msrkc (int unused, int a, int b)
diff --git a/gcc/testsuite/gcc.target/s390/arch13/bitops-1.c
b/gcc/testsuite/gcc.target/s390/arch13/bitops-1.c
index fd49fb97630d..8d84655f71cc 100644
--- a/gcc/testsuite/gcc.target/s390/arch13/bitops-1.c
+++ b/gcc/testsuite/gcc.target/s390/arch13/bitops-1.c
@@ -1,4 +1,4 @@
-/* { dg-compile } */
+/* { dg-do compile } */
/* and with complement */
diff --git a/gcc/testsuite/gcc.target/s390/arch13/bitops-2.c
b/gcc/testsuite/gcc.target/s390/arch13/bitops-2.c
index fde96034c55a..1bfada3b05ab 100644
--- a/gcc/testsuite/gcc.target/s390/arch13/bitops-2.c
+++ b/gcc/testsuite/gcc.target/s390/arch13/bitops-2.c
@@ -1,4 +1,4 @@
-/* { dg-compile } */
+/* { dg-do compile } */
/* Check if the instruction are being used also for compares. */
diff --git a/gcc/testsuite/gcc.target/s390/arch13/fp-signedint-convert-1.c
b/gcc/testsuite/gcc.target/s390/arch13/fp-signedint-convert-1.c
index 9801da86cf36..9c9ea2a55044 100644
--- a/gcc/testsuite/gcc.target/s390/arch13/fp-signedint-convert-1.c
+++ b/gcc/testsuite/gcc.target/s390/arch13/fp-signedint-convert-1.c
@@ -1,4 +1,4 @@
-/* { dg-compile } */
+/* { dg-do compile } */
typedef int __attribute__((vector_size(16))) v4si;
typedef float __attribute__((vector_size(16))) v4sf;
diff --git a/gcc/testsuite/gcc.target/s390/arch13/fp-unsignedint-convert-1.c
b/gcc/testsuite/gcc.target/s390/arch13/fp-unsignedint-convert-1.c
index b93b95daf252..1369ad6ff465 100644
--- a/gcc/testsuite/gcc.target/s390/arch13/fp-unsignedint-convert-1.c
+++ b/gcc/testsuite/gcc.target/s390/arch13/fp-unsignedint-convert-1.c
@@ -1,4 +1,4 @@
-/* { dg-compile } */
+/* { dg-do compile } */
typedef unsigned int __attribute__((vector_size(16))) v4si;
typedef float __attribute__((vector_size(16))) v4sf;
diff --git a/gcc/testsuite/gcc.target/s390/arch13/popcount-1.c
b/gcc/testsuite/gcc.target/s390/arch13/popcount-1.c
index c98a3272a028..92d5acb93dc7 100644
--- a/gcc/testsuite/gcc.target/s390/arch13/popcount-1.c
+++ b/gcc/testsuite/gcc.target/s390/arch13/popcount-1.c
@@ -1,4 +1,4 @@
-/* { dg-compile } */
+/* { dg-do compile } */
unsigned int ui;
unsigned long ul;
diff --git a/gcc/testsuite/gcc.target/s390/pr68015.c
b/gcc/testsuite/gcc.target/s390/pr68015.c
index b0d1f35ad1a8..47adc63d7f73 100644
--- a/gcc/testsuite/gcc.target/s390/pr68015.c
+++ b/gcc/testsuite/gcc.target/s390/pr68015.c
@@ -1,4 +1,4 @@
-/* { dg-compile } */
+/* { dg-do compile } */
/* { dg-options "-O2 -march=z196" } */
extern long useme (long, ...);
diff --git a/gcc/testsuite/gcc.target/s390/vector/fp-signedint-convert-1.c
b/gcc/testsuite/gcc.target/s390/vector/fp-signedint-convert-1.c
index 536817aa5af7..69dddf222678 100644
--- a/gcc/testsuite/gcc.target/s390/vector/fp-signedint-convert-1.c
+++ b/gcc/testsuite/gcc.target/s390/vector/fp-signedint-convert-1.c
@@ -1,4 +1,4 @@
-/* { dg-compile } */
+/* { dg-do compile } */
/* { dg-options "-O3 -march=z13 -mzarch" } */
typedef long long __attribute__((vector_size(16))) v2di;
diff --git a/gcc/testsuite/gcc.target/s390/vector/fp-unsignedint-convert-1.c
b/gcc/testsuite/gcc.target/s390/vector/fp-unsignedint-convert-1.c
index 61409bcfc73a..578e72f5682d 100644
--- a/gcc/testsuite/gcc.target/s390/vector/fp-unsignedint-convert-1.c
+++ b/gcc/testsuite/gcc.target/s390/vector/fp-unsignedint-convert-1.c
@@ -1,4 +1,4 @@
-/* { dg-compile } */
+/* { dg-do compile } */
/* { dg-options "-O3 -march=z13 -mzarch" } */
typedef unsigned long long __attribute__((vector_size(16))) v2di;
diff --git a/gcc/testsuite/gcc.target/s390/vector/reverse-elements-1.c
b/gcc/testsuite/gcc.target/s390/vector/reverse-elements-1.c
index 4a2541b7ae6f..39e4a9b3e28b 100644
--- a/gcc/testsuite/gcc.target/s390/vector/reverse-elements-1.c
+++ b/gcc/testsuite/gcc.target/s390/vector/reverse-elements-1.c
@@ -1,4 +1,4 @@
-/* { dg-compile } */
+/* { dg-do compile } */
/* { dg-options "-O3 -mzarch -march=z13" } */
/* { dg-require-effective-target s390_vx } */
/* { dg-final { scan-assembler-times {\tvpdi\t} 4 } } */
diff --git a/gcc/testsuite/gcc.target/s390/vector/reverse-elements-2.c
b/gcc/testsuite/gcc.target/s390/vector/reverse-elements-2.c
index ec0d1da7d571..25597042ee89 100644
--- a/gcc/testsuite/gcc.target/s390/vector/reverse-elements-2.c
+++ b/gcc/testsuite/gcc.target/s390/vector/reverse-elements-2.c
@@ -1,4 +1,4 @@
-/* { dg-compile } */
+/* { dg-do compile } */
/* { dg-options "-O3 -mzarch -march=z14" } */
/* { dg-require-effective-target s390_vxe } */
/* { dg-final { scan-assembler-times {\tvpdi\t} 1 } } */
diff --git a/gcc/testsuite/gcc.target/s390/vector/reverse-elements-3.c
b/gcc/testsuite/gcc.target/s390/vector/reverse-elements-3.c
index 3f69db8831cf..ad0b8e6e604b 100644
--- a/gcc/testsuite/gcc.target/s390/vector/reverse-elements-3.c
+++ b/gcc/testsuite/gcc.target/s390/vector/reverse-elements-3.c
@@ -1,4 +1,4 @@
-/* { dg-compile } */
+/* { dg-do compile } */
/* { dg-options "-O3 -mzarch -march=z14" } */
/* { dg-require-effective-target s390_vxe } */
/* { dg-final { scan-assembler-times {\tvpdi\t} 5 } } */
diff --git a/gcc/testsuite/gcc.target/s390/vector/reverse-elements-4.c
b/gcc/testsuite/gcc.target/s390/vector/reverse-elements-4.c
index 5027ed55f500..f386d559174f 100644
--- a/gcc/testsuite/gcc.target/s390/vector/reverse-elements-4.c
+++ b/gcc/testsuite/gcc.target/s390/vector/reverse-elements-4.c
@@ -1,4 +1,4 @@
-/* { dg-compile } */
+/* { dg-do compile } */
/* { dg-options "-O3 -mzarch -march=z15" } */
/* { dg-require-effective-target s390_vxe2 } */
/* { dg-final { scan-assembler-times {\tvlbrq\t} 1 } } */
diff --git a/gcc/testsuite/gcc.target/s390/vector/reverse-elements-5.c
b/gcc/testsuite/gcc.target/s390/vector/reverse-elements-5.c
index 8c250aa681b9..f7403784bfeb 100644
--- a/gcc/testsuite/gcc.target/s390/vector/reverse-elements-5.c
+++ b/gcc/testsuite/gcc.target/s390/vector/reverse-elements-5.c
@@ -1,4 +1,4 @@
-/* { dg-compile } */
+/* { dg-do compile } */
/* { dg-options "-O3 -mzarch -march=z14" } */
/* { dg-require-effective-target s390_vxe } */
/* { dg-final { scan-assembler-times {\tvpdi\t} 5 } } */
diff --git a/gcc/testsuite/gcc.target/s390/vector/reverse-elements-6.c
b/gcc/testsuite/gcc.target/s390/vector/reverse-elements-6.c
index 7e2b23567880..a73109170d43 100644
--- a/gcc/testsuite/gcc.target/s390/vector/reverse-elements-6.c
+++ b/gcc/testsuite/gcc.target/s390/vector/reverse-elements-6.c
@@ -1,4 +1,4 @@
-/* { dg-compile } */
+/* { dg-do compile } */
/* { dg-options "-O3 -mzarch -march=z15" } */
/* { dg-require-effective-target s390_vxe2 } */
/* { dg-final { scan-assembler-times {\tvstbrq\t} 1 } } */
diff --git a/gcc/testsuite/gcc.target/s390/vector/reverse-elements-7.c
b/gcc/testsuite/gcc.target/s390/vector/reverse-elements-7.c
index 046fcc0790a6..453b870a5a51 100644
--- a/gcc/testsuite/gcc.target/s390/vector/reverse-elements-7.c
+++ b/gcc/testsuite/gcc.target/s390/vector/reverse-elements-7.c
@@ -1,4 +1,4 @@
-/* { dg-compile } */
+/* { dg-do compile } */
/* { dg-options "-O3 -mzarch -march=z15" } */
/* { dg-require-effective-target s390_vxe2 } */
/* { dg-final { scan-assembler-times {\tvstbrq\t} 1 } } */
diff --git a/gcc/testsuite/gnat.dg/alignment15.adb
b/gcc/testsuite/gnat.dg/alignment15.adb
index e58243d29084..72d3746dff8c 100644
--- a/gcc/testsuite/gnat.dg/alignment15.adb
+++ b/gcc/testsuite/gnat.dg/alignment15.adb
@@ -1,4 +1,4 @@
--- { dg-compile }
+-- { dg-do compile }
procedure Alignment15 is
type T0 is record
diff --git a/gcc/testsuite/gnat.dg/debug4.adb b/gcc/testsuite/gnat.dg/debug4.adb
index 1ec37c2aa3b0..1543cdca81c6 100644
--- a/gcc/testsuite/gnat.dg/debug4.adb
+++ b/gcc/testsuite/gnat.dg/debug4.adb
@@ -1,4 +1,4 @@
--- { dg-compile }
+-- { dg-do compile }
-- { dg-options "-g" }
with Debug4_Pkg;
diff --git a/gcc/testsuite/gnat.dg/inline21.adb
b/gcc/testsuite/gnat.dg/inline21.adb
index 5df569158eb3..5cdd3626898e 100644
--- a/gcc/testsuite/gnat.dg/inline21.adb
+++ b/gcc/testsuite/gnat.dg/inline21.adb
@@ -1,4 +1,4 @@
--- { dg-compile }
+-- { dg-do compile }
-- { dg-options "-O -gnatn" }
with Inline21_Q;
diff --git a/gcc/testsuite/gnat.dg/inline22.adb
b/gcc/testsuite/gnat.dg/inline22.adb
index 5812c2f04dfd..00f94c8789bb 100644
--- a/gcc/testsuite/gnat.dg/inline22.adb
+++ b/gcc/testsuite/gnat.dg/inline22.adb
@@ -1,4 +1,4 @@
--- { dg-compile }
+-- { dg-do compile }
procedure Inline22 (L, U : Integer) is
diff --git a/gcc/testsuite/gnat.dg/opt37.adb b/gcc/testsuite/gnat.dg/opt37.adb
index 0e3ee53a1589..52585af77f09 100644
--- a/gcc/testsuite/gnat.dg/opt37.adb
+++ b/gcc/testsuite/gnat.dg/opt37.adb
@@ -1,4 +1,4 @@
--- { dg-compile }
+-- { dg-do compile }
-- { dg-options "-O2 -gnato -fdump-tree-optimized" }
package body Opt37 is
diff --git a/gcc/testsuite/gnat.dg/warn13.adb b/gcc/testsuite/gnat.dg/warn13.adb
index 2a9c4e392ccf..6fcd11a0c940 100644
--- a/gcc/testsuite/gnat.dg/warn13.adb
+++ b/gcc/testsuite/gnat.dg/warn13.adb
@@ -1,4 +1,4 @@
--- { dg-compile }
+-- { dg-do compile }
procedure Warn13 is
--
2.45.2
