aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSam James <sam@gentoo.org>2024-07-30 20:04:40 +0100
committerSam James <sam@gentoo.org>2024-07-30 21:00:31 +0100
commitacc70606c59e3f14072cc8a164362e728d8df5d6 (patch)
treebb496f142c108eb5ebdf94f9d76c0c9df0fe741e
parentdf67f383d8f6a0fc6820510b500ea74ddde5001d (diff)
downloadgcc-acc70606c59e3f14072cc8a164362e728d8df5d6.zip
gcc-acc70606c59e3f14072cc8a164362e728d8df5d6.tar.gz
gcc-acc70606c59e3f14072cc8a164362e728d8df5d6.tar.bz2
testsuite: fix 'dg-compile' typos
'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.
-rw-r--r--gcc/testsuite/c-c++-common/goacc/loop-shape.c2
-rw-r--r--gcc/testsuite/g++.dg/pr83979.C2
-rw-r--r--gcc/testsuite/g++.target/aarch64/sve/acle/general-c++/attributes_2.C2
-rw-r--r--gcc/testsuite/gcc.dg/tree-ssa/builtin-sprintf-7.c2
-rw-r--r--gcc/testsuite/gcc.dg/tree-ssa/builtin-sprintf-8.c2
-rw-r--r--gcc/testsuite/gcc.target/riscv/amo/zabha-rvwmo-all-amo-ops-char.c2
-rw-r--r--gcc/testsuite/gcc.target/riscv/amo/zabha-rvwmo-all-amo-ops-short.c2
-rw-r--r--gcc/testsuite/gcc.target/s390/20181024-1.c2
-rw-r--r--gcc/testsuite/gcc.target/s390/addr-constraints-1.c2
-rw-r--r--gcc/testsuite/gcc.target/s390/arch12/aghsghmgh-1.c2
-rw-r--r--gcc/testsuite/gcc.target/s390/arch12/mul-1.c2
-rw-r--r--gcc/testsuite/gcc.target/s390/arch13/bitops-1.c2
-rw-r--r--gcc/testsuite/gcc.target/s390/arch13/bitops-2.c2
-rw-r--r--gcc/testsuite/gcc.target/s390/arch13/fp-signedint-convert-1.c2
-rw-r--r--gcc/testsuite/gcc.target/s390/arch13/fp-unsignedint-convert-1.c2
-rw-r--r--gcc/testsuite/gcc.target/s390/arch13/popcount-1.c2
-rw-r--r--gcc/testsuite/gcc.target/s390/pr68015.c2
-rw-r--r--gcc/testsuite/gcc.target/s390/vector/fp-signedint-convert-1.c2
-rw-r--r--gcc/testsuite/gcc.target/s390/vector/fp-unsignedint-convert-1.c2
-rw-r--r--gcc/testsuite/gcc.target/s390/vector/reverse-elements-1.c2
-rw-r--r--gcc/testsuite/gcc.target/s390/vector/reverse-elements-2.c2
-rw-r--r--gcc/testsuite/gcc.target/s390/vector/reverse-elements-3.c2
-rw-r--r--gcc/testsuite/gcc.target/s390/vector/reverse-elements-4.c2
-rw-r--r--gcc/testsuite/gcc.target/s390/vector/reverse-elements-5.c2
-rw-r--r--gcc/testsuite/gcc.target/s390/vector/reverse-elements-6.c2
-rw-r--r--gcc/testsuite/gcc.target/s390/vector/reverse-elements-7.c2
-rw-r--r--gcc/testsuite/gnat.dg/alignment15.adb2
-rw-r--r--gcc/testsuite/gnat.dg/debug4.adb2
-rw-r--r--gcc/testsuite/gnat.dg/inline21.adb2
-rw-r--r--gcc/testsuite/gnat.dg/inline22.adb2
-rw-r--r--gcc/testsuite/gnat.dg/opt37.adb2
-rw-r--r--gcc/testsuite/gnat.dg/warn13.adb2
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 9708f7b..b3199b4 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 a39b1ea..0ef754d 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 b55be02..c8f1ad4 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 29954aa..eca4e90 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 2d38d12..da1088c 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 85841fd..5821120 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 edc0a2c..c846ca4 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 830ab5b..66415ce 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 fbb48f2..165a082 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 fc844c3..29cbecb 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 ef39535..da0421b 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 fd49fb9..8d84655 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 fde9603..1bfada3b 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 9801da8..9c9ea2a 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 b93b95d..1369ad6 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 c98a327..92d5acb 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 b0d1f35..47adc63 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 536817a..69dddf2 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 61409bc..578e72f 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 4a2541b..39e4a9b 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 ec0d1da..2559704 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 3f69db8..ad0b8e6 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 5027ed5..f386d55 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 8c250aa..f740378 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 7e2b235..a731091 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 046fcc0..453b870 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 e58243d..72d3746 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 1ec37c2..1543cdc 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 5df5691..5cdd362 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 5812c2f..00f94c8 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 0e3ee53..52585af 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 2a9c4e3..6fcd11a 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