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.

diff --git a/gcc/testsuite/c-c++-common/goacc/loop-shape.c b/gcc/testsuite/c-c++-common/goacc/loop-shape.c
index 9708f7bf5eb37f92e3133fc4ad6804ddab35b752..b3199b4044d0b872332dfdecf2609eccc5dbcd67 100644 (file)
--- 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 a39b1ea6ab9b53b989948feda7bccbd4745d9df7..0ef754d1e48d4e477f655d218ed306fe97b97a94 100644 (file)
--- 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 b55be02ecca264e2d2104f9f6932cdc8464e334c..c8f1ad403e671feebc2faef72fa4518a7522f1bd 100644 (file)
--- 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 29954aabfdb4859ad76e38b755d83432dc45fe71..eca4e90809261df534c70f19c6e9ca80eac2b368 100644 (file)
--- 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 2d38d12bcc22cb6b5f7bcc48947e224192ffd227..da1088c5fffdac81a6c3736e2cafb2f846045dd5 100644 (file)
--- 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 85841fd7036cb655cc29f9a6d552237fe2e12c72..58211207186cd428f6531ed9cdebdf5c82daa591 100644 (file)
--- 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 edc0a2c8f8e3f3565e3f561598027a644bfd6af2..c846ca48d72843968d7646521c9defb03d708199 100644 (file)
--- 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 830ab5b927ce707985cf5cada14cad551aa4893a..66415ce9ce2927435509aba2b3c3a8e2609b6927 100644 (file)
--- 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 fbb48f282b3b4b6305569115d8394f34b172aee9..165a0828cc43f39050b91faf0457f7ae85b0bf6b 100644 (file)
--- 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 fc844c3e4042e03bd20e4f710767e797f800d51a..29cbecb691c2483ac1171d41cd129c5ac72a44df 100644 (file)
--- 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 ef395356b72acee0c1d384268e18a017ec171ba5..da0421b8385d6cb47df3f30857735fd8a00b4501 100644 (file)
--- 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 fd49fb97630d914a5abfaa645871f3a14d8a6ec1..8d84655f71cce19af9fa35df705c2ba1784f2b7a 100644 (file)
--- 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 fde96034c55aa657d5cb7cfd7556360889f76547..1bfada3b05abb526b77ccbe473c17f219845221c 100644 (file)
--- 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 9801da86cf360821f041fe8d91ae6b18155d3e5c..9c9ea2a55044ae03572c1ba79ca5dc55ceabc0b4 100644 (file)
--- 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 b93b95daf2521f06ac4452c768efa52f96b5bd4b..1369ad6ff465bce032d282f2b4548ad45facb043 100644 (file)
--- 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 c98a3272a028832f6c8a53bad08ea3e785e9a0cd..92d5acb93dc764303e27e75e5ced30939fe21df1 100644 (file)
--- 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 b0d1f35ad1a80431c2ad0cd0b04c30316da7bc26..47adc63d7f739b9a95be58f5569cfdae5d245aab 100644 (file)
--- 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 536817aa5af790f39df3000ed277f51a10ef1047..69dddf222678c9d5bba663a72d747e210e17bffe 100644 (file)
--- 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 61409bcfc73aa91de9989704fdb148b014313e41..578e72f5682d07c971ee14419d79db52a8dc564f 100644 (file)
--- 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 4a2541b7ae6faca1173810ab4fe2930d5f9d1d54..39e4a9b3e28bdd58172312f0fa19678aabd2bbce 100644 (file)
--- 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 ec0d1da7d571664f1a108a8505ac5cb83ba2259b..25597042ee891dbbe5227c5ca076880d39f22ee9 100644 (file)
--- 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 3f69db8831cf51850235ff212bc5cac6b9e4b9b7..ad0b8e6e604ba92bd9d75bbd804182b034fa7081 100644 (file)
--- 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 5027ed55f5009f82d70db2a18a164956547c30a1..f386d559174f2e8a79925c139e3308d1d2bfa014 100644 (file)
--- 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 8c250aa681b95a5248ed09d5dfe80ea607fc3a33..f7403784bfeb3dfec024b5024e983dfdb0431c21 100644 (file)
--- 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 7e2b235678805d4b1a54bd47ac28af4b28799e99..a73109170d43e9accd324c19473c07ea1f5fa279 100644 (file)
--- 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 046fcc0790a63a66ad556d338f0f89d6bd35299a..453b870a5a51fac933bebf692179f778850634b6 100644 (file)
--- 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 e58243d29084abc0dffbee11e6b7ecc63d47ab7b..72d3746dff8ce043ba109ca7ffd7401cd3555428 100644 (file)
--- 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 1ec37c2aa3b0d8b64e743d1d32c30de549966fdd..1543cdca81c6aeb1d7f6ee8cc65202e29dcd000d 100644 (file)
--- 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 5df569158eb3d13036fbaaf85c5fe4aaccef6f6e..5cdd3626898ea659bc399c2763fd3acd91a0a8d5 100644 (file)
--- 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 5812c2f04dfd60841aefb09befada0e3c2e84aff..00f94c8789bbfb59fe85410119f97497fb2717e9 100644 (file)
--- 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 0e3ee53a1589faedd7a041aa514d729a88982034..52585af77f09f23d865953557b55649256728404 100644 (file)
--- 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 2a9c4e392ccf891ae6e12e06dedda0d834437294..6fcd11a0c940fa683e779a14249ef9a2dd7bcdbe 100644 (file)
--- 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