diff --git a/gcc/testsuite/gfortran.dg/coarray/caf.exp b/gcc/testsuite/gfortran.dg/coarray/caf.exp
index 31c13cd34e5e53bf59e7465a2f7d904aee6f3d8a..9e608ecf83d05396061cdf38a55e324b9e9fe1a1 100644
--- a/gcc/testsuite/gfortran.dg/coarray/caf.exp
+++ b/gcc/testsuite/gfortran.dg/coarray/caf.exp
@@ -78,7 +78,7 @@ foreach test [lsort [glob -nocomplain $srcdir/$subdir/*.\[fF\]{,90,95,03,08} ]]
     }
 
 # Enable if you want to test several options:
-#    # look if this is dg-do-run test, in which case
+#    # look if this is dg-do run test, in which case
 #    # we cycle through the option list, otherwise we don't
 #    if [expr [search_for $test "dg-do run"]] {
 #	set option_list $torture_with_loops
diff --git a/gcc/testsuite/lib/gfortran-dg.exp b/gcc/testsuite/lib/gfortran-dg.exp
index 2edc09e5c995a6d516692065bc36707db87dde3c..726941c757f26d1b021d65755d046c805383f6f3 100644
--- a/gcc/testsuite/lib/gfortran-dg.exp
+++ b/gcc/testsuite/lib/gfortran-dg.exp
@@ -146,7 +146,7 @@ proc gfortran-dg-runtest { testcases flags default-extra-flags } {
 	    continue
         }
 
-	# look if this is dg-do-run test, in which case
+	# look if this is dg-do run test, in which case
 	# we cycle through the option list, otherwise we don't
 	if [expr [search_for $test "dg-do run"]] {
 	    set option_list $torture_with_loops
diff --git a/gcc/testsuite/lib/gm2-dg.exp b/gcc/testsuite/lib/gm2-dg.exp
index 7230143f80e8a28b21a9b11f4d65a59f2b4517b4..0fa26846df84ca3aa5718dbc30ca7d45e3a0b668 100644
--- a/gcc/testsuite/lib/gm2-dg.exp
+++ b/gcc/testsuite/lib/gm2-dg.exp
@@ -59,7 +59,7 @@ proc gm2-dg-runtest { testcases flags default-extra-flags } {
 	    continue
         }
 
-	# look if this is dg-do-run test, in which case
+	# look if this is dg-do run test, in which case
 	# we cycle through the option list, otherwise we don't
 	if [expr [search_for $test "dg-do run"]] {
 	    set option_list $TORTURE_OPTIONS
diff --git a/gcc/testsuite/lib/go-dg.exp b/gcc/testsuite/lib/go-dg.exp
index d22835066252b90bb24b52a563b6ff64e8fe5681..bbc70a2301fd4a0da3bfebc0d30f735e38c6d825 100644
--- a/gcc/testsuite/lib/go-dg.exp
+++ b/gcc/testsuite/lib/go-dg.exp
@@ -47,7 +47,7 @@ proc go-dg-runtest { testcases flags default-extra-flags } {
 	    continue
         }
 
-	# look if this is dg-do-run test, in which case
+	# look if this is dg-do run test, in which case
 	# we cycle through the option list, otherwise we don't
 	if [expr [search_for $test "dg-do run"]] {
 	    set option_list $TORTURE_OPTIONS