The attached diff file begins some test suite cleanup.
The patch removes extra spaces between dg-do and the run directive, I
only have gone through gfortran.dg and not its sub-directories.
Interestingly, one of the tests fails when this space is removed. I
fixed that by adding in a -O in the dg-options.
The PR is not about the extra spaces. Interestingly it is recommended in
comment #3 that the -O0 which are superfluous be removed everywhere. I
plan to make additional passes through the tests to clean out the -O and
-O0 directives as suggested and see what the result is. I also plan to
go through the sub-directories as well. (ie more patches will follow as
I have time.)
The effect of removing the extra space is additional tests on the test
case are run. [aside: I found one test case that had its executable bit
set so I corrected it as well.]
Regression tested on x86-64-linux-gnu. OK for trunk?
Author: Jerry DeLisle <jvdeli...@gcc.gnu.org>
Date: Sat Oct 19 19:29:22 2024 -0700
Fortran: Remove extra space from dg-do run directives.
gcc/testsuite/ChangeLog:
PR fortran/28031
* gfortran.dg/ISO_Fortran_binding_4.f90: Delete extra space
in dg-do run directive.
* gfortran.dg/abort_shouldfail.f90: Likewise.
* gfortran.dg/adjustl_1.f90: Likewise.
* gfortran.dg/allocate_with_mold_3.f90: Likewise.
* gfortran.dg/allocate_with_source_6.f90: Likewise.
* gfortran.dg/altreturn_9_0.f90: Likewise.
* gfortran.dg/array_constructor_52.f90: Likewise.
* gfortran.dg/array_constructor_53.f90: Likewise.
* gfortran.dg/array_simplify_2.f90: Likewise.
* gfortran.dg/array_simplify_3.f90: Likewise.
* gfortran.dg/block_14.f90: Likewise.
* gfortran.dg/bound_9.f90: Likewise.
* gfortran.dg/bounds_check_20.f90: Likewise.
* gfortran.dg/c_funptr_1_mod.f90: Likewise.
* gfortran.dg/char_result_mod_19.f90: Likewise.
* gfortran.dg/coarray_data_1.f90: Likewise.
* gfortran.dg/contiguous_8.f90: Likewise.
* gfortran.dg/cray_pointers_2.f90: Likewise.
* gfortran.dg/cshift_1.f90: Likewise.
* gfortran.dg/cshift_2.f90: Likewise.
* gfortran.dg/data_derived_1.f90: Likewise.
* gfortran.dg/dec_union_12.f90: Remove executable bit from file
permissions.
* gfortran.dg/dependency_50.f90: Likewise.
* gfortran.dg/dependency_51.f90: Likewise.
* gfortran.dg/dependency_54.f90: Likewise.
* gfortran.dg/derived_init_5.f90: Likewise.
* gfortran.dg/dim_sum_1.f90: Likewise.
* gfortran.dg/dim_sum_2.f90: Likewise.
* gfortran.dg/dim_sum_3.f90: Likewise.
* gfortran.dg/eoshift_3.f90: Likewise.
* gfortran.dg/eoshift_4.f90: Likewise.
* gfortran.dg/eoshift_5.f90: Likewise.
* gfortran.dg/eoshift_6.f90: Likewise.
* gfortran.dg/execute_command_line_3.f90: Likewise.
* gfortran.dg/findloc_5.f90: Likewise.
* gfortran.dg/implied_do_io_4.f90: Likewise.
* gfortran.dg/implied_do_io_5.f90: Likewise.
* gfortran.dg/implied_do_io_6.f90: Likewise.
* gfortran.dg/inline_matmul_1.f90: Likewise.
* gfortran.dg/inline_matmul_10.f90: Likewise. Add -O option.
* gfortran.dg/inline_matmul_11.f90: Likewise.
* gfortran.dg/inline_matmul_17.f90: Likewise.
* gfortran.dg/inline_matmul_18.f90: Likewise.
* gfortran.dg/inline_matmul_19.f90: Likewise.
* gfortran.dg/inline_matmul_20.f90: Likewise.
* gfortran.dg/inline_matmul_3.f90: Likewise.
* gfortran.dg/inline_matmul_4.f90: Likewise.
* gfortran.dg/inline_matmul_5.f90: Likewise.
* gfortran.dg/inline_matmul_7.f90: Likewise.
* gfortran.dg/inline_matmul_8.f90: Likewise.
* gfortran.dg/inline_matmul_9.f90: Likewise.
* gfortran.dg/intent_out_12.f90: Likewise.
* gfortran.dg/internal_readwrite_4.f90: Likewise.
* gfortran.dg/is_contiguous_2.f90: Likewise.
* gfortran.dg/is_contiguous_3.f90: Likewise.
* gfortran.dg/matmul_15.f90: Likewise.
* gfortran.dg/matmul_16.f90: Likewise.
* gfortran.dg/matmul_19.f90: Likewise.
* gfortran.dg/matmul_blas_1.f: Likewise.
* gfortran.dg/matmul_bounds_14.f: Likewise.
* gfortran.dg/matmul_bounds_15.f: Likewise.
* gfortran.dg/matmul_bounds_16.f: Likewise.
* gfortran.dg/matmul_const.f90: Likewise.
* gfortran.dg/maxloc_4.f90: Likewise.
* gfortran.dg/maxval_parameter_1.f90: Likewise.
* gfortran.dg/min_max_type.f90: Likewise.
* gfortran.dg/min_max_type_2.f90: Likewise.
* gfortran.dg/minloc_4.f90: Likewise.
* gfortran.dg/minmaxloc_12.f90: Likewise.
* gfortran.dg/minmaxloc_13.f90: Likewise.
* gfortran.dg/minmaxloc_8.f90: Likewise.
* gfortran.dg/minmaxloc_zerosize_1.f90: Likewise.
* gfortran.dg/minval_char_5.f90: Likewise.
* gfortran.dg/minval_parameter_1.f90: Likewise.
* gfortran.dg/open_errors_3.f90: Likewise.
* gfortran.dg/parameter_array_format.f90: Likewise.
* gfortran.dg/recursive_check_16.f90: Likewise.
* gfortran.dg/shape_9.f90: Likewise.
* gfortran.dg/simplify_cshift_4.f90: Likewise.
* gfortran.dg/simplify_eoshift_1.f90: Likewise.
* gfortran.dg/stop_shouldfail.f90: Likewise.
* gfortran.dg/structure_constructor_14.f90: Likewise.
* gfortran.dg/substr_7.f90: Likewise.
* gfortran.dg/zero_sized_9.f90: Likewise.
diff --git a/gcc/testsuite/gfortran.dg/ISO_Fortran_binding_4.f90 b/gcc/testsuite/gfortran.dg/ISO_Fortran_binding_4.f90
index c596e47cfdd..2e2bb72b373 100644
--- a/gcc/testsuite/gfortran.dg/ISO_Fortran_binding_4.f90
+++ b/gcc/testsuite/gfortran.dg/ISO_Fortran_binding_4.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! PR fortran/89384 - this used to give a wrong results
! with contiguous.
! The subroutine substr is a test to check a problem found while
diff --git a/gcc/testsuite/gfortran.dg/abort_shouldfail.f90 b/gcc/testsuite/gfortran.dg/abort_shouldfail.f90
index 5a522ea7816..da41a9c6936 100644
--- a/gcc/testsuite/gfortran.dg/abort_shouldfail.f90
+++ b/gcc/testsuite/gfortran.dg/abort_shouldfail.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! { dg-shouldfail "Program aborted." }
program main
call abort
diff --git a/gcc/testsuite/gfortran.dg/adjustl_1.f90 b/gcc/testsuite/gfortran.dg/adjustl_1.f90
index 4871e330d22..96f732de902 100644
--- a/gcc/testsuite/gfortran.dg/adjustl_1.f90
+++ b/gcc/testsuite/gfortran.dg/adjustl_1.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! PR 52749 - this used to ICE.
! Original test case by Stefan Mauerberger.
PROGRAM test
diff --git a/gcc/testsuite/gfortran.dg/allocate_with_mold_3.f90 b/gcc/testsuite/gfortran.dg/allocate_with_mold_3.f90
index 797edbe7d49..0d0a85f3dbc 100644
--- a/gcc/testsuite/gfortran.dg/allocate_with_mold_3.f90
+++ b/gcc/testsuite/gfortran.dg/allocate_with_mold_3.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! PR fortran/89174 - this used to segfault on execution.
! Test case by Neil Carlson.
module mod
diff --git a/gcc/testsuite/gfortran.dg/allocate_with_source_6.f90 b/gcc/testsuite/gfortran.dg/allocate_with_source_6.f90
index ab968969695..70cb69cbe59 100644
--- a/gcc/testsuite/gfortran.dg/allocate_with_source_6.f90
+++ b/gcc/testsuite/gfortran.dg/allocate_with_source_6.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! { dg-options "-fbounds-check" }
!
! Contributed by Juergen Reuter
diff --git a/gcc/testsuite/gfortran.dg/altreturn_9_0.f90 b/gcc/testsuite/gfortran.dg/altreturn_9_0.f90
index 58715c7db40..0dad3e57238 100644
--- a/gcc/testsuite/gfortran.dg/altreturn_9_0.f90
+++ b/gcc/testsuite/gfortran.dg/altreturn_9_0.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! { dg-options -std=gnu }
! { dg-additional-sources altreturn_9_1.f90 }
! PR 89496 - wrong type for alternate return was generated
diff --git a/gcc/testsuite/gfortran.dg/array_constructor_52.f90 b/gcc/testsuite/gfortran.dg/array_constructor_52.f90
index 63581acf989..835c382fbfc 100644
--- a/gcc/testsuite/gfortran.dg/array_constructor_52.f90
+++ b/gcc/testsuite/gfortran.dg/array_constructor_52.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! PR 84931 - long array constructors with type conversion were not
! handled correctly.
program test
diff --git a/gcc/testsuite/gfortran.dg/array_constructor_53.f90 b/gcc/testsuite/gfortran.dg/array_constructor_53.f90
index 8f7c87fe96c..ad3280b6629 100644
--- a/gcc/testsuite/gfortran.dg/array_constructor_53.f90
+++ b/gcc/testsuite/gfortran.dg/array_constructor_53.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! PR 84931 - long array constructors with type conversion were not
! handled correctly. array_constructor_52.f90 tests the original
! problem.
diff --git a/gcc/testsuite/gfortran.dg/array_simplify_2.f90 b/gcc/testsuite/gfortran.dg/array_simplify_2.f90
index 36454044ee2..21f5a2b5385 100644
--- a/gcc/testsuite/gfortran.dg/array_simplify_2.f90
+++ b/gcc/testsuite/gfortran.dg/array_simplify_2.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! PR 85102 - this used to ICE
! Original test case by Gerhard Steinmetz
program p
diff --git a/gcc/testsuite/gfortran.dg/array_simplify_3.f90 b/gcc/testsuite/gfortran.dg/array_simplify_3.f90
index 31183b06990..0db5108943b 100644
--- a/gcc/testsuite/gfortran.dg/array_simplify_3.f90
+++ b/gcc/testsuite/gfortran.dg/array_simplify_3.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! PR 71203 - this used to ICE
program p
integer :: i
diff --git a/gcc/testsuite/gfortran.dg/block_14.f90 b/gcc/testsuite/gfortran.dg/block_14.f90
index 824cb6ab2b7..24c10debd59 100644
--- a/gcc/testsuite/gfortran.dg/block_14.f90
+++ b/gcc/testsuite/gfortran.dg/block_14.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! PR 66113 - this used to ICE with deeply nested BLOCKS.
program main
integer :: n
diff --git a/gcc/testsuite/gfortran.dg/bound_9.f90 b/gcc/testsuite/gfortran.dg/bound_9.f90
index 0bceff3334d..d9e9deb1d35 100644
--- a/gcc/testsuite/gfortran.dg/bound_9.f90
+++ b/gcc/testsuite/gfortran.dg/bound_9.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! { dg-options "-fdump-tree-original" }
! Check for different combinations of lbound for dummy arrays,
! stressing empty arrays. The assignments with "one =" should
diff --git a/gcc/testsuite/gfortran.dg/bounds_check_20.f90 b/gcc/testsuite/gfortran.dg/bounds_check_20.f90
index 86a6d09aa27..f12c27c4bf3 100644
--- a/gcc/testsuite/gfortran.dg/bounds_check_20.f90
+++ b/gcc/testsuite/gfortran.dg/bounds_check_20.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! { dg-additional-options "-fcheck=bounds -ffrontend-optimize" }
! PR 85631 - this used to cause a runtime error with bounds checking.
module x
diff --git a/gcc/testsuite/gfortran.dg/c_funptr_1_mod.f90 b/gcc/testsuite/gfortran.dg/c_funptr_1_mod.f90
index 6db515bdf16..bcb6b317f6a 100644
--- a/gcc/testsuite/gfortran.dg/c_funptr_1_mod.f90
+++ b/gcc/testsuite/gfortran.dg/c_funptr_1_mod.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! { dg-additional-sources c_funptr_1.f90 }
! Additional module to go with c_funptr_1.f90
module win32_types
diff --git a/gcc/testsuite/gfortran.dg/char_result_mod_19.f90 b/gcc/testsuite/gfortran.dg/char_result_mod_19.f90
index a2b5e94f1b6..5d841907c17 100644
--- a/gcc/testsuite/gfortran.dg/char_result_mod_19.f90
+++ b/gcc/testsuite/gfortran.dg/char_result_mod_19.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! { dg-additional-sources char_result_19.f90 }
!
! Module for char_result_19.f90
diff --git a/gcc/testsuite/gfortran.dg/coarray_data_1.f90 b/gcc/testsuite/gfortran.dg/coarray_data_1.f90
index e1cc33eab41..052eb037e01 100644
--- a/gcc/testsuite/gfortran.dg/coarray_data_1.f90
+++ b/gcc/testsuite/gfortran.dg/coarray_data_1.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! { dg-options "-fcoarray=lib -lcaf_single " }
! { dg-additional-options "-latomic" { target libatomic_available } }
! PR 71066 - this used to ICE
diff --git a/gcc/testsuite/gfortran.dg/contiguous_8.f90 b/gcc/testsuite/gfortran.dg/contiguous_8.f90
index d362f1e381d..22881122259 100644
--- a/gcc/testsuite/gfortran.dg/contiguous_8.f90
+++ b/gcc/testsuite/gfortran.dg/contiguous_8.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! PR 56789 - packing / unpacking of contiguous arguments
! did not happen.
diff --git a/gcc/testsuite/gfortran.dg/cray_pointers_2.f90 b/gcc/testsuite/gfortran.dg/cray_pointers_2.f90
index 4351874825e..a7e15bad850 100644
--- a/gcc/testsuite/gfortran.dg/cray_pointers_2.f90
+++ b/gcc/testsuite/gfortran.dg/cray_pointers_2.f90
@@ -1,6 +1,6 @@
! Using two spaces between dg-do and run is a hack to keep gfortran-dg-runtest
! from cycling through optimization options for this expensive test.
-! { dg-do run }
+! { dg-do run }
! { dg-options "-O3 -fcray-pointer -fbounds-check -fno-inline" }
! { dg-timeout-factor 4 }
!
diff --git a/gcc/testsuite/gfortran.dg/cshift_1.f90 b/gcc/testsuite/gfortran.dg/cshift_1.f90
index a5e221b80dd..d0277eab9fa 100644
--- a/gcc/testsuite/gfortran.dg/cshift_1.f90
+++ b/gcc/testsuite/gfortran.dg/cshift_1.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! Take cshift through its paces to make sure no boundary
! cases are wrong.
diff --git a/gcc/testsuite/gfortran.dg/cshift_2.f90 b/gcc/testsuite/gfortran.dg/cshift_2.f90
index b13456925f7..945874504bc 100644
--- a/gcc/testsuite/gfortran.dg/cshift_2.f90
+++ b/gcc/testsuite/gfortran.dg/cshift_2.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! Test CSHIFT with array argument for shift
module rnd
implicit none
diff --git a/gcc/testsuite/gfortran.dg/data_derived_1.f90 b/gcc/testsuite/gfortran.dg/data_derived_1.f90
index 4318f5824f9..0ca331e84c0 100644
--- a/gcc/testsuite/gfortran.dg/data_derived_1.f90
+++ b/gcc/testsuite/gfortran.dg/data_derived_1.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! PR 66328 - this used to give a wrong value for integer values for DATA
program main
TYPE t
diff --git a/gcc/testsuite/gfortran.dg/dec_union_12.f90 b/gcc/testsuite/gfortran.dg/dec_union_12.f90
old mode 100755
new mode 100644
diff --git a/gcc/testsuite/gfortran.dg/dependency_50.f90 b/gcc/testsuite/gfortran.dg/dependency_50.f90
index c55da8fdb9d..1edb9bc8fe8 100644
--- a/gcc/testsuite/gfortran.dg/dependency_50.f90
+++ b/gcc/testsuite/gfortran.dg/dependency_50.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! PR 83224 - dependency mishandling with an array constructor
! Original test case by Urban Jost
program dusty_corner
diff --git a/gcc/testsuite/gfortran.dg/dependency_51.f90 b/gcc/testsuite/gfortran.dg/dependency_51.f90
index 6cd6af91221..29db017e53f 100644
--- a/gcc/testsuite/gfortran.dg/dependency_51.f90
+++ b/gcc/testsuite/gfortran.dg/dependency_51.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! PR 83224 - dependency mishandling with an array constructor
! Original test case by Urban Jost
program dusty_corner
diff --git a/gcc/testsuite/gfortran.dg/dependency_54.f90 b/gcc/testsuite/gfortran.dg/dependency_54.f90
index f738ed81d6c..7ad8a450911 100644
--- a/gcc/testsuite/gfortran.dg/dependency_54.f90
+++ b/gcc/testsuite/gfortran.dg/dependency_54.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! { dg-additional-options "-fdump-tree-original -ffrontend-optimize" }
! PR 65819 - this used to cause a temporary in matmul inlining.
! Check that these are absent by looking for the names of the
diff --git a/gcc/testsuite/gfortran.dg/derived_init_5.f90 b/gcc/testsuite/gfortran.dg/derived_init_5.f90
index b94ca39ce02..c09bda57819 100644
--- a/gcc/testsuite/gfortran.dg/derived_init_5.f90
+++ b/gcc/testsuite/gfortran.dg/derived_init_5.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! PR 59781 - this was not initialized correctly before.
! Original test case by James Spencer.
implicit none
diff --git a/gcc/testsuite/gfortran.dg/dim_sum_1.f90 b/gcc/testsuite/gfortran.dg/dim_sum_1.f90
index 6a41ed99d43..b91a6ffccb1 100644
--- a/gcc/testsuite/gfortran.dg/dim_sum_1.f90
+++ b/gcc/testsuite/gfortran.dg/dim_sum_1.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! { dg-shouldfail "Dim argument incorrect in SUM intrinsic: is 5, should be between 1 and 2" }
program summation
diff --git a/gcc/testsuite/gfortran.dg/dim_sum_2.f90 b/gcc/testsuite/gfortran.dg/dim_sum_2.f90
index 58a724ac43a..993b33caccd 100644
--- a/gcc/testsuite/gfortran.dg/dim_sum_2.f90
+++ b/gcc/testsuite/gfortran.dg/dim_sum_2.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! { dg-shouldfail "Dim argument incorrect in SUM intrinsic: is 5, should be between 1 and 2" }
program summation
diff --git a/gcc/testsuite/gfortran.dg/dim_sum_3.f90 b/gcc/testsuite/gfortran.dg/dim_sum_3.f90
index b6c782439ed..3842e23bf34 100644
--- a/gcc/testsuite/gfortran.dg/dim_sum_3.f90
+++ b/gcc/testsuite/gfortran.dg/dim_sum_3.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! { dg-shouldfail "Dim argument incorrect in SUM intrinsic: is 5, should be between 1 and 2" }
program summation
diff --git a/gcc/testsuite/gfortran.dg/eoshift_3.f90 b/gcc/testsuite/gfortran.dg/eoshift_3.f90
index 2c2f7073a43..b8c16b5e2aa 100644
--- a/gcc/testsuite/gfortran.dg/eoshift_3.f90
+++ b/gcc/testsuite/gfortran.dg/eoshift_3.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! Check that eoshift works for three-dimensional arrays.
module x
implicit none
diff --git a/gcc/testsuite/gfortran.dg/eoshift_4.f90 b/gcc/testsuite/gfortran.dg/eoshift_4.f90
index 85e5dab607d..daf5c6b2db7 100644
--- a/gcc/testsuite/gfortran.dg/eoshift_4.f90
+++ b/gcc/testsuite/gfortran.dg/eoshift_4.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! Check that eoshift works for three-dimensional arrays.
module x
implicit none
diff --git a/gcc/testsuite/gfortran.dg/eoshift_5.f90 b/gcc/testsuite/gfortran.dg/eoshift_5.f90
index 89b04bde433..aeb9755be0e 100644
--- a/gcc/testsuite/gfortran.dg/eoshift_5.f90
+++ b/gcc/testsuite/gfortran.dg/eoshift_5.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! Check that eoshift works for three-dimensional arrays.
module x
implicit none
diff --git a/gcc/testsuite/gfortran.dg/eoshift_6.f90 b/gcc/testsuite/gfortran.dg/eoshift_6.f90
index 864be5aa035..dba99650a01 100644
--- a/gcc/testsuite/gfortran.dg/eoshift_6.f90
+++ b/gcc/testsuite/gfortran.dg/eoshift_6.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! Check that eoshift works for three-dimensional arrays.
module x
implicit none
diff --git a/gcc/testsuite/gfortran.dg/execute_command_line_3.f90 b/gcc/testsuite/gfortran.dg/execute_command_line_3.f90
index 7db17c25291..2775cb2f95a 100644
--- a/gcc/testsuite/gfortran.dg/execute_command_line_3.f90
+++ b/gcc/testsuite/gfortran.dg/execute_command_line_3.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! PR 82233 - there were program aborts for some of these commands.
! Original test case by Urban Jost.
program boom
diff --git a/gcc/testsuite/gfortran.dg/findloc_5.f90 b/gcc/testsuite/gfortran.dg/findloc_5.f90
index cf4bd3e2125..c2e59a6c912 100644
--- a/gcc/testsuite/gfortran.dg/findloc_5.f90
+++ b/gcc/testsuite/gfortran.dg/findloc_5.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! Check compile-time simplification of FINDLOC
program main
integer, dimension(4), parameter :: a1 = [1, 2, 3, 1]
diff --git a/gcc/testsuite/gfortran.dg/implied_do_io_4.f90 b/gcc/testsuite/gfortran.dg/implied_do_io_4.f90
index 4b484d7d500..26efabf97a4 100644
--- a/gcc/testsuite/gfortran.dg/implied_do_io_4.f90
+++ b/gcc/testsuite/gfortran.dg/implied_do_io_4.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! { dg-additional-options "-ffrontend-optimize -fdump-tree-original" }
! PR fortran/35339 - make sure that I/O of an implied DO loop
! of allocatable character arrays a) works and b) is converted
diff --git a/gcc/testsuite/gfortran.dg/implied_do_io_5.f90 b/gcc/testsuite/gfortran.dg/implied_do_io_5.f90
index 988d0040e91..75d1ba6ef42 100644
--- a/gcc/testsuite/gfortran.dg/implied_do_io_5.f90
+++ b/gcc/testsuite/gfortran.dg/implied_do_io_5.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! { dg-additional-options "-ffrontend-optimize" }
! PR fortran/85387 - incorrect output
! Original test case by Vittorio Zecca
diff --git a/gcc/testsuite/gfortran.dg/implied_do_io_6.f90 b/gcc/testsuite/gfortran.dg/implied_do_io_6.f90
index ebc99b234d1..ca8b698a688 100644
--- a/gcc/testsuite/gfortran.dg/implied_do_io_6.f90
+++ b/gcc/testsuite/gfortran.dg/implied_do_io_6.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! { dg-options "-ffrontend-optimize" }
! PR 86837 - this was mis-optimized by trying to turn this into an
! array I/O statement.
diff --git a/gcc/testsuite/gfortran.dg/inline_matmul_1.f90 b/gcc/testsuite/gfortran.dg/inline_matmul_1.f90
index b0d5a037b4f..9c241fd12d4 100644
--- a/gcc/testsuite/gfortran.dg/inline_matmul_1.f90
+++ b/gcc/testsuite/gfortran.dg/inline_matmul_1.f90
@@ -1,5 +1,5 @@
-! { dg-do run }
-! { dg-options "-ffrontend-optimize -fdump-tree-optimized -Wrealloc-lhs" }
+! { dg-do run }
+! { dg-options "-ffrontend-optimize -fdump-tree-optimized -Wrealloc-lhs -O" }
! PR 37131 - check basic functionality of inlined matmul, making
! sure that the library is not called, with and without reallocation.
diff --git a/gcc/testsuite/gfortran.dg/inline_matmul_10.f90 b/gcc/testsuite/gfortran.dg/inline_matmul_10.f90
index fe0d3ad1056..d15c43c24bb 100644
--- a/gcc/testsuite/gfortran.dg/inline_matmul_10.f90
+++ b/gcc/testsuite/gfortran.dg/inline_matmul_10.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! { dg-options "-ffrontend-optimize" }
! PR 66111 - this used to ICE with matmul inlining.
! Original test case by Mikael Morin.
diff --git a/gcc/testsuite/gfortran.dg/inline_matmul_11.f90 b/gcc/testsuite/gfortran.dg/inline_matmul_11.f90
index d4a944de724..484b88987b1 100644
--- a/gcc/testsuite/gfortran.dg/inline_matmul_11.f90
+++ b/gcc/testsuite/gfortran.dg/inline_matmul_11.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! { dg-additional-options "-ffrontend-optimize -fdump-tree-optimized" }
! PR fortran/66176 - inline conjg for matml.
program main
diff --git a/gcc/testsuite/gfortran.dg/inline_matmul_17.f90 b/gcc/testsuite/gfortran.dg/inline_matmul_17.f90
index cff4b6ce5e2..19a0aee19c0 100644
--- a/gcc/testsuite/gfortran.dg/inline_matmul_17.f90
+++ b/gcc/testsuite/gfortran.dg/inline_matmul_17.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! { dg-options "-O -fdump-tree-optimized -finline-matmul-limit=1000" }
module x
implicit none
diff --git a/gcc/testsuite/gfortran.dg/inline_matmul_18.f90 b/gcc/testsuite/gfortran.dg/inline_matmul_18.f90
index afca8f03a1b..1c369e3add9 100644
--- a/gcc/testsuite/gfortran.dg/inline_matmul_18.f90
+++ b/gcc/testsuite/gfortran.dg/inline_matmul_18.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! { dg-options "-O -finline-matmul-limit=100 -fdump-tree-optimized" }
! PR 80975 - this did not zero the result array in the library version;
! make sure this also doesn't happen in the inline version.
diff --git a/gcc/testsuite/gfortran.dg/inline_matmul_19.f90 b/gcc/testsuite/gfortran.dg/inline_matmul_19.f90
index bf832387866..0791ab41fb1 100644
--- a/gcc/testsuite/gfortran.dg/inline_matmul_19.f90
+++ b/gcc/testsuite/gfortran.dg/inline_matmul_19.f90
@@ -1,4 +1,4 @@
- ! { dg-do run }
+ ! { dg-do run }
! { dg-options "-ffrontend-optimize" }
! PR 81974 - this used to cause an ICE.
diff --git a/gcc/testsuite/gfortran.dg/inline_matmul_20.f90 b/gcc/testsuite/gfortran.dg/inline_matmul_20.f90
index 8f27292fd1a..05eb7903a50 100644
--- a/gcc/testsuite/gfortran.dg/inline_matmul_20.f90
+++ b/gcc/testsuite/gfortran.dg/inline_matmul_20.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! { dg-additional-options "-fno-realloc-lhs -ffrontend-optimize" }
! This used to segfault at runtime.
! Original test case by Harald Anlauf.
diff --git a/gcc/testsuite/gfortran.dg/inline_matmul_3.f90 b/gcc/testsuite/gfortran.dg/inline_matmul_3.f90
index adb59e074b9..867f5c5d9c8 100644
--- a/gcc/testsuite/gfortran.dg/inline_matmul_3.f90
+++ b/gcc/testsuite/gfortran.dg/inline_matmul_3.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! { dg-options "-O3 -finline-matmul-limit=2 -fdump-tree-optimized" }
! PR 37131 - all calls to matmul should be kept
program main
diff --git a/gcc/testsuite/gfortran.dg/inline_matmul_4.f90 b/gcc/testsuite/gfortran.dg/inline_matmul_4.f90
index cb4e05121ca..2fbe7a17d3a 100644
--- a/gcc/testsuite/gfortran.dg/inline_matmul_4.f90
+++ b/gcc/testsuite/gfortran.dg/inline_matmul_4.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! { dg-options "-O3 -finline-matmul-limit=10 -fdump-tree-optimized -fdump-tree-original" }
! PR 37131 - all calls to matmul should be optimized away with -O3
! and the high limit.
diff --git a/gcc/testsuite/gfortran.dg/inline_matmul_5.f90 b/gcc/testsuite/gfortran.dg/inline_matmul_5.f90
index 3f5a9d391ab..563316b54e5 100644
--- a/gcc/testsuite/gfortran.dg/inline_matmul_5.f90
+++ b/gcc/testsuite/gfortran.dg/inline_matmul_5.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! { dg-options "-ffrontend-optimize" }
program main
diff --git a/gcc/testsuite/gfortran.dg/inline_matmul_7.f90 b/gcc/testsuite/gfortran.dg/inline_matmul_7.f90
index 34716bc5daa..7c72b7c3f88 100644
--- a/gcc/testsuite/gfortran.dg/inline_matmul_7.f90
+++ b/gcc/testsuite/gfortran.dg/inline_matmul_7.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! { dg-options "-ffrontend-optimize -fdump-tree-original" }
program main
diff --git a/gcc/testsuite/gfortran.dg/inline_matmul_8.f90 b/gcc/testsuite/gfortran.dg/inline_matmul_8.f90
index 272f65f55ea..d5408e10e32 100644
--- a/gcc/testsuite/gfortran.dg/inline_matmul_8.f90
+++ b/gcc/testsuite/gfortran.dg/inline_matmul_8.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! { dg-options "-ffrontend-optimize -fdump-tree-original" }
! PR 66041 - this used to ICE with an incomplete fix for the PR.
program main
diff --git a/gcc/testsuite/gfortran.dg/inline_matmul_9.f90 b/gcc/testsuite/gfortran.dg/inline_matmul_9.f90
index 074936ae2ce..a88a015a0ed 100644
--- a/gcc/testsuite/gfortran.dg/inline_matmul_9.f90
+++ b/gcc/testsuite/gfortran.dg/inline_matmul_9.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! { dg-options "-ffrontend-optimize -fdump-tree-optimized" }
! PR 66041 - this used to ICE with an incomplete fix for the PR.
program main
diff --git a/gcc/testsuite/gfortran.dg/intent_out_12.f90 b/gcc/testsuite/gfortran.dg/intent_out_12.f90
index e838bcbb4c2..2c978066ac5 100644
--- a/gcc/testsuite/gfortran.dg/intent_out_12.f90
+++ b/gcc/testsuite/gfortran.dg/intent_out_12.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! PR fortran/87401 - this used to segfault at runtime.
! Test case by Janus Weil.
diff --git a/gcc/testsuite/gfortran.dg/internal_readwrite_4.f90 b/gcc/testsuite/gfortran.dg/internal_readwrite_4.f90
index cd2e684a456..5efaf72c371 100644
--- a/gcc/testsuite/gfortran.dg/internal_readwrite_4.f90
+++ b/gcc/testsuite/gfortran.dg/internal_readwrite_4.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! PR 83436 - this used to cause an error.
! Original test case by Daan van Vugt.
module mod_random_seed
diff --git a/gcc/testsuite/gfortran.dg/is_contiguous_2.f90 b/gcc/testsuite/gfortran.dg/is_contiguous_2.f90
index 210c191956b..869c88ee1af 100644
--- a/gcc/testsuite/gfortran.dg/is_contiguous_2.f90
+++ b/gcc/testsuite/gfortran.dg/is_contiguous_2.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
!
! PR fortran/45424
! PR fortran/48820
diff --git a/gcc/testsuite/gfortran.dg/is_contiguous_3.f90 b/gcc/testsuite/gfortran.dg/is_contiguous_3.f90
index e4d20605f24..894cfbe8ab3 100644
--- a/gcc/testsuite/gfortran.dg/is_contiguous_3.f90
+++ b/gcc/testsuite/gfortran.dg/is_contiguous_3.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! { dg-additional-options "-fdump-tree-original" }
! PR 45424 - compile-time simplification of is_contiguous
program main
diff --git a/gcc/testsuite/gfortran.dg/matmul_15.f90 b/gcc/testsuite/gfortran.dg/matmul_15.f90
index 9e731ed57be..e99c4a686ca 100644
--- a/gcc/testsuite/gfortran.dg/matmul_15.f90
+++ b/gcc/testsuite/gfortran.dg/matmul_15.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! { dg-options "-finline-matmul-limit=0" }
! Stress-test the matmul blocking code with sizes close to or
! equal to powers ot two.
diff --git a/gcc/testsuite/gfortran.dg/matmul_16.f90 b/gcc/testsuite/gfortran.dg/matmul_16.f90
index 8d8429136f6..2f711890cdc 100644
--- a/gcc/testsuite/gfortran.dg/matmul_16.f90
+++ b/gcc/testsuite/gfortran.dg/matmul_16.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! { dg-options "-finline-matmul-limit=0" }
! PR 80975 - this did not zero the result array
program bogus_matmul
diff --git a/gcc/testsuite/gfortran.dg/matmul_19.f90 b/gcc/testsuite/gfortran.dg/matmul_19.f90
index c4549240c1f..e2991fa7409 100644
--- a/gcc/testsuite/gfortran.dg/matmul_19.f90
+++ b/gcc/testsuite/gfortran.dg/matmul_19.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! { dg-options "-finline-matmul-limit=0" }
! PR 86704 - this used to segfault.
diff --git a/gcc/testsuite/gfortran.dg/matmul_blas_1.f b/gcc/testsuite/gfortran.dg/matmul_blas_1.f
index 6a88981c9d7..ac40611dd37 100644
--- a/gcc/testsuite/gfortran.dg/matmul_blas_1.f
+++ b/gcc/testsuite/gfortran.dg/matmul_blas_1.f
@@ -1,4 +1,4 @@
-C { dg-do run }
+C { dg-do run }
C { dg-options "-fcheck=bounds -fdump-tree-optimized -fblas-matmul-limit=1 -O -fexternal-blas" }
C { dg-additional-sources blas_gemm_routines.f }
C Test calling of BLAS routines
diff --git a/gcc/testsuite/gfortran.dg/matmul_bounds_14.f b/gcc/testsuite/gfortran.dg/matmul_bounds_14.f
index 4c8a51521d6..b07892eb3e8 100644
--- a/gcc/testsuite/gfortran.dg/matmul_bounds_14.f
+++ b/gcc/testsuite/gfortran.dg/matmul_bounds_14.f
@@ -1,4 +1,4 @@
-C { dg-do run }
+C { dg-do run }
C { dg-options "-fno-realloc-lhs -fdump-tree-optimized -fcheck=bounds -fblas-matmul-limit=1 -O -fexternal-blas" }
C { dg-shouldfail "Fortran runtime error: Array bound mismatch for dimension 2 of array." }
C { dg-additional-sources blas_gemm_routines.f }
diff --git a/gcc/testsuite/gfortran.dg/matmul_bounds_15.f b/gcc/testsuite/gfortran.dg/matmul_bounds_15.f
index db4627adb9f..47aa56ae192 100644
--- a/gcc/testsuite/gfortran.dg/matmul_bounds_15.f
+++ b/gcc/testsuite/gfortran.dg/matmul_bounds_15.f
@@ -1,4 +1,4 @@
-C { dg-do run }
+C { dg-do run }
C { dg-options "-fdump-tree-optimized -fcheck=bounds -fblas-matmul-limit=1 -O -fexternal-blas" }
C { dg-shouldfail "Fortran runtime error: Incorrect extent in argument B in MATMUL intrinsic in dimension 1.*" }
C { dg-additional-sources blas_gemm_routines.f }
diff --git a/gcc/testsuite/gfortran.dg/matmul_bounds_16.f b/gcc/testsuite/gfortran.dg/matmul_bounds_16.f
index 50e91ae4958..0ab58169712 100644
--- a/gcc/testsuite/gfortran.dg/matmul_bounds_16.f
+++ b/gcc/testsuite/gfortran.dg/matmul_bounds_16.f
@@ -1,4 +1,4 @@
-C { dg-do run }
+C { dg-do run }
C { dg-options "-fdump-tree-optimized -fcheck=bounds -fblas-matmul-limit=1 -O -fexternal-blas" }
C { dg-shouldfail "Fortran runtime error: Incorrect extent in argument B in MATMUL intrinsic in dimension 1" }
C { dg-additional-sources blas_gemm_routines.f }
diff --git a/gcc/testsuite/gfortran.dg/matmul_const.f90 b/gcc/testsuite/gfortran.dg/matmul_const.f90
index ab186fdd883..187727fa038 100644
--- a/gcc/testsuite/gfortran.dg/matmul_const.f90
+++ b/gcc/testsuite/gfortran.dg/matmul_const.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! { dg-additional-options "-fno-frontend-optimize -fdump-tree-original" }
program main
integer, parameter :: A(3,2) = reshape([1,2,3,4,5,6],[3,2])
diff --git a/gcc/testsuite/gfortran.dg/maxloc_4.f90 b/gcc/testsuite/gfortran.dg/maxloc_4.f90
index b17a55f5a30..396b0eff6e9 100644
--- a/gcc/testsuite/gfortran.dg/maxloc_4.f90
+++ b/gcc/testsuite/gfortran.dg/maxloc_4.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! Check that simplification of maxloc works
program main
implicit none
diff --git a/gcc/testsuite/gfortran.dg/maxval_parameter_1.f90 b/gcc/testsuite/gfortran.dg/maxval_parameter_1.f90
index 4c809d82c1c..71a03382f6c 100644
--- a/gcc/testsuite/gfortran.dg/maxval_parameter_1.f90
+++ b/gcc/testsuite/gfortran.dg/maxval_parameter_1.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! Test for run-time simplification of maxval
program main
implicit none
diff --git a/gcc/testsuite/gfortran.dg/min_max_type.f90 b/gcc/testsuite/gfortran.dg/min_max_type.f90
index 58137ada36d..cce7021edcf 100644
--- a/gcc/testsuite/gfortran.dg/min_max_type.f90
+++ b/gcc/testsuite/gfortran.dg/min_max_type.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! Make sure this is evaluated correctly even though max
! has been declared integer.
! Original test case by Gerhard Steinmetz.
diff --git a/gcc/testsuite/gfortran.dg/min_max_type_2.f90 b/gcc/testsuite/gfortran.dg/min_max_type_2.f90
index e2b6d6745d9..79c4a4d0f4f 100644
--- a/gcc/testsuite/gfortran.dg/min_max_type_2.f90
+++ b/gcc/testsuite/gfortran.dg/min_max_type_2.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! PR 88658 - make sure the types for min1, max1, amax0 and amin0 are
! correct when simplified
diff --git a/gcc/testsuite/gfortran.dg/minloc_4.f90 b/gcc/testsuite/gfortran.dg/minloc_4.f90
index de9f40a8956..eb3cd35851c 100644
--- a/gcc/testsuite/gfortran.dg/minloc_4.f90
+++ b/gcc/testsuite/gfortran.dg/minloc_4.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! Check that simplification of minloc works
program main
implicit none
diff --git a/gcc/testsuite/gfortran.dg/minmaxloc_12.f90 b/gcc/testsuite/gfortran.dg/minmaxloc_12.f90
index 54bebba826f..2c0317c77b6 100644
--- a/gcc/testsuite/gfortran.dg/minmaxloc_12.f90
+++ b/gcc/testsuite/gfortran.dg/minmaxloc_12.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! Test compile-time simplification of minloc and maxloc with BACK argument
program main
integer, parameter :: i1(*) = [ 1,2,3,1,2,3];
diff --git a/gcc/testsuite/gfortran.dg/minmaxloc_13.f90 b/gcc/testsuite/gfortran.dg/minmaxloc_13.f90
index 3ebfdc921ec..fe7bd1e1d28 100644
--- a/gcc/testsuite/gfortran.dg/minmaxloc_13.f90
+++ b/gcc/testsuite/gfortran.dg/minmaxloc_13.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! Test run-time of MINLOC and MAXLOC with BACK
program main
implicit none
diff --git a/gcc/testsuite/gfortran.dg/minmaxloc_8.f90 b/gcc/testsuite/gfortran.dg/minmaxloc_8.f90
index e4097e50d4b..fa366b7d18e 100644
--- a/gcc/testsuite/gfortran.dg/minmaxloc_8.f90
+++ b/gcc/testsuite/gfortran.dg/minmaxloc_8.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! { dg-options "-fdump-tree-original" }
! Test that minloc and maxloc using KINDs return the right
! kind, by using unformatted I/O for a specific kind.
diff --git a/gcc/testsuite/gfortran.dg/minmaxloc_zerosize_1.f90 b/gcc/testsuite/gfortran.dg/minmaxloc_zerosize_1.f90
index 94e5d00b064..d0c79a80ef3 100644
--- a/gcc/testsuite/gfortran.dg/minmaxloc_zerosize_1.f90
+++ b/gcc/testsuite/gfortran.dg/minmaxloc_zerosize_1.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! { dg-additional-options "-fdump-tree-original" }
program main
implicit none
diff --git a/gcc/testsuite/gfortran.dg/minval_char_5.f90 b/gcc/testsuite/gfortran.dg/minval_char_5.f90
index 31b873427c9..f205e560842 100644
--- a/gcc/testsuite/gfortran.dg/minval_char_5.f90
+++ b/gcc/testsuite/gfortran.dg/minval_char_5.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! PR fortran/83316 - this used to ICE
program tminmaxval
implicit none
diff --git a/gcc/testsuite/gfortran.dg/minval_parameter_1.f90 b/gcc/testsuite/gfortran.dg/minval_parameter_1.f90
index dd136ec0a85..789abd4c216 100644
--- a/gcc/testsuite/gfortran.dg/minval_parameter_1.f90
+++ b/gcc/testsuite/gfortran.dg/minval_parameter_1.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! Test for run-time simplification of minval
program main
implicit none
diff --git a/gcc/testsuite/gfortran.dg/open_errors_3.f90 b/gcc/testsuite/gfortran.dg/open_errors_3.f90
index da9495610d4..5fbcbe030e5 100644
--- a/gcc/testsuite/gfortran.dg/open_errors_3.f90
+++ b/gcc/testsuite/gfortran.dg/open_errors_3.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! PR 90461 Open file on multiple units as of F2018
program openmult
implicit none
diff --git a/gcc/testsuite/gfortran.dg/parameter_array_format.f90 b/gcc/testsuite/gfortran.dg/parameter_array_format.f90
index d4ae9dac8c9..cdaa18530e5 100644
--- a/gcc/testsuite/gfortran.dg/parameter_array_format.f90
+++ b/gcc/testsuite/gfortran.dg/parameter_array_format.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! PR fortran/66709
! Check that parameter formats are handled correctly.
! Original test case by Gerhard Steinmetz.
diff --git a/gcc/testsuite/gfortran.dg/recursive_check_16.f90 b/gcc/testsuite/gfortran.dg/recursive_check_16.f90
index d8e9d69ea7b..d2a55687d5f 100644
--- a/gcc/testsuite/gfortran.dg/recursive_check_16.f90
+++ b/gcc/testsuite/gfortran.dg/recursive_check_16.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! ! { dg-options "-fcheck=recursion" }
! PR 95743 - this used cause a runtime error.
! Test case by Antoine Lemoine
diff --git a/gcc/testsuite/gfortran.dg/shape_9.f90 b/gcc/testsuite/gfortran.dg/shape_9.f90
index 8deb3b2a999..66482dc4b54 100644
--- a/gcc/testsuite/gfortran.dg/shape_9.f90
+++ b/gcc/testsuite/gfortran.dg/shape_9.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! { dg-require-effective-target lto }
! { dg-options "-flto" }
! Check that there are no warnings with LTO for a KIND argument.
diff --git a/gcc/testsuite/gfortran.dg/simplify_cshift_4.f90 b/gcc/testsuite/gfortran.dg/simplify_cshift_4.f90
index 2c7842fa3f3..c15ffd6a371 100644
--- a/gcc/testsuite/gfortran.dg/simplify_cshift_4.f90
+++ b/gcc/testsuite/gfortran.dg/simplify_cshift_4.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
program main
implicit none
integer :: i
diff --git a/gcc/testsuite/gfortran.dg/simplify_eoshift_1.f90 b/gcc/testsuite/gfortran.dg/simplify_eoshift_1.f90
index f69c21db40e..f7789c1106b 100644
--- a/gcc/testsuite/gfortran.dg/simplify_eoshift_1.f90
+++ b/gcc/testsuite/gfortran.dg/simplify_eoshift_1.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
program main
implicit none
integer :: i,n1, n2, n3
diff --git a/gcc/testsuite/gfortran.dg/stop_shouldfail.f90 b/gcc/testsuite/gfortran.dg/stop_shouldfail.f90
index 11fc12b4dc9..9ef5c0c7852 100644
--- a/gcc/testsuite/gfortran.dg/stop_shouldfail.f90
+++ b/gcc/testsuite/gfortran.dg/stop_shouldfail.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! { dg-shouldfail "STOP 1" }
program main
stop 1
diff --git a/gcc/testsuite/gfortran.dg/structure_constructor_14.f90 b/gcc/testsuite/gfortran.dg/structure_constructor_14.f90
index 10626f2a12a..62472c7d4d3 100644
--- a/gcc/testsuite/gfortran.dg/structure_constructor_14.f90
+++ b/gcc/testsuite/gfortran.dg/structure_constructor_14.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! PR 48890, PR 83823
! Test fix for wrong length in parameters. Original test cases
! by mhp77 (a) gmx.at and Harald Anlauf.
diff --git a/gcc/testsuite/gfortran.dg/substr_7.f90 b/gcc/testsuite/gfortran.dg/substr_7.f90
index 3d8f2e1bd55..a836db4ca48 100644
--- a/gcc/testsuite/gfortran.dg/substr_7.f90
+++ b/gcc/testsuite/gfortran.dg/substr_7.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
! PR 70068 - used to allocate too much memory
! Original test cases by Gerhard Steinmetz
program p
diff --git a/gcc/testsuite/gfortran.dg/zero_sized_9.f90 b/gcc/testsuite/gfortran.dg/zero_sized_9.f90
index 891a0138cea..d72d44741ed 100644
--- a/gcc/testsuite/gfortran.dg/zero_sized_9.f90
+++ b/gcc/testsuite/gfortran.dg/zero_sized_9.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run }
program main
implicit none
integer, parameter :: a(0,3) = 0
