[gcc r13-5465] Fortran tests: Revise line end tests allowing windows testing.

public inbox for gcc-cvs@sourceware.org
help / color / mirror / Atom feed

* [gcc r13-5465] Fortran tests: Revise line end tests allowing windows testing.
@ 2023-01-28  2:27 Jerry DeLisle
  0 siblings, 0 replies; only message in thread
From: Jerry DeLisle @ 2023-01-28  2:27 UTC (permalink / raw)
  To: gcc-cvs

https://gcc.gnu.org/g:f963705752e9d0b79a340788166269af417e344e

commit r13-5465-gf963705752e9d0b79a340788166269af417e344e
Author: Jerry DeLisle <jvdelisle@gcc.gnu.org>
Date:   Sat Jan 21 15:47:19 2023 -0800

    Fortran tests: Revise line end tests allowing windows testing.
    
    gcc/testsuite/ChangeLog:
    
            * gfortran.dg/ISO_Fortran_binding_17.f90: Replace (\n|\r\n|\r)
            with (\r*\n+).
            * gfortran.dg/array_temporaries_2.f90: Likewise.
            * gfortran.dg/bind-c-contiguous-1.f90: Likewise.
            * gfortran.dg/bind-c-contiguous-4.f90: Likewise.
            * gfortran.dg/bind-c-contiguous-5.f90: Likewise.
            * gfortran.dg/fmt_error_4.f90: Likewise.
            * gfortran.dg/fmt_error_5.f90: Likewise.
            * gfortran.dg/fmt_float.f90: Likewise.
            * gfortran.dg/fmt_l.f90: Likewise.
            * gfortran.dg/fmt_nonchar_2.f90: Likewise.
            * gfortran.dg/fmt_zero_precision.f90: Likewise.
            * gfortran.dg/g77/f77-edit-apostrophe-out.f: Likewise.
            * gfortran.dg/g77/f77-edit-colon-out.f: Likewise.
            * gfortran.dg/g77/f77-edit-h-out.f: Likewise.
            * gfortran.dg/g77/f77-edit-i-out.f: Likewise.
            * gfortran.dg/g77/f77-edit-s-out.f: Likewise.
            * gfortran.dg/g77/f77-edit-slash-out.f: Likewise.
            * gfortran.dg/g77/f77-edit-t-out.f: Likewise.
            * gfortran.dg/g77/f77-edit-x-out.f: Likewise.
            * gfortran.dg/namelist_40.f90: Likewise.
            * gfortran.dg/namelist_47.f90: Likewise.
            * gfortran.dg/namelist_print_1.f: Likewise.
            * gfortran.dg/parameter_array_dummy.f90: Likewise.

Diff:
---
 .../gfortran.dg/ISO_Fortran_binding_17.f90         |   8 +-
 gcc/testsuite/gfortran.dg/array_temporaries_2.f90  |   2 +-
 gcc/testsuite/gfortran.dg/bind-c-contiguous-1.f90  | 400 ++++++++++-----------
 gcc/testsuite/gfortran.dg/bind-c-contiguous-4.f90  | 400 ++++++++++-----------
 gcc/testsuite/gfortran.dg/bind-c-contiguous-5.f90  | 400 ++++++++++-----------
 gcc/testsuite/gfortran.dg/fmt_error_4.f90          |   2 +-
 gcc/testsuite/gfortran.dg/fmt_error_5.f90          |   2 +-
 gcc/testsuite/gfortran.dg/fmt_float.f90            |  36 +-
 gcc/testsuite/gfortran.dg/fmt_l.f90                |  32 +-
 gcc/testsuite/gfortran.dg/fmt_nonchar_2.f90        |   2 +-
 gcc/testsuite/gfortran.dg/fmt_zero_precision.f90   |  74 ++--
 .../gfortran.dg/g77/f77-edit-apostrophe-out.f      |  10 +-
 gcc/testsuite/gfortran.dg/g77/f77-edit-colon-out.f |   2 +-
 gcc/testsuite/gfortran.dg/g77/f77-edit-h-out.f     |   6 +-
 gcc/testsuite/gfortran.dg/g77/f77-edit-i-out.f     |  30 +-
 gcc/testsuite/gfortran.dg/g77/f77-edit-s-out.f     |  10 +-
 gcc/testsuite/gfortran.dg/g77/f77-edit-slash-out.f |   2 +-
 gcc/testsuite/gfortran.dg/g77/f77-edit-t-out.f     |   6 +-
 gcc/testsuite/gfortran.dg/g77/f77-edit-x-out.f     |   4 +-
 gcc/testsuite/gfortran.dg/namelist_40.f90          |   8 +-
 gcc/testsuite/gfortran.dg/namelist_47.f90          |   8 +-
 gcc/testsuite/gfortran.dg/namelist_print_1.f       |   2 +-
 .../gfortran.dg/parameter_array_dummy.f90          |  10 +-
 23 files changed, 728 insertions(+), 728 deletions(-)

diff --git a/gcc/testsuite/gfortran.dg/ISO_Fortran_binding_17.f90 b/gcc/testsuite/gfortran.dg/ISO_Fortran_binding_17.f90
index 5902334a66a..c399e710ce9 100644
--- a/gcc/testsuite/gfortran.dg/ISO_Fortran_binding_17.f90
+++ b/gcc/testsuite/gfortran.dg/ISO_Fortran_binding_17.f90
@@ -71,7 +71,7 @@
    end block blk2
 end
 
-! { dg-output "CFI_address: subscripts\\\[0\\\] is out of bounds. For dimension = 0, subscripts = -1, lower_bound = 0, upper bound = 4, extent = 4(\n|\r\n|\r)" }
-! { dg-output "CFI_address: subscripts\\\[0\\\] is out of bounds. For dimension = 0, subscripts = 5, lower_bound = 0, upper bound = 4, extent = 4(\n|\r\n|\r).*" }
-! { dg-output "CFI_address: subscripts\\\[0\\\] is out of bounds. For dimension = 0, subscripts = -3, lower_bound = -2, upper bound = 6, extent = 4(\n|\r\n|\r)" }
-! { dg-output "CFI_address: subscripts\\\[0\\\] is out of bounds. For dimension = 0, subscripts = 2, lower_bound = -2, upper bound = 6, extent = 4(\n|\r\n|\r)" }
+! { dg-output "CFI_address: subscripts\\\[0\\\] is out of bounds. For dimension = 0, subscripts = -1, lower_bound = 0, upper bound = 4, extent = 4(\r*\n+)" }
+! { dg-output "CFI_address: subscripts\\\[0\\\] is out of bounds. For dimension = 0, subscripts = 5, lower_bound = 0, upper bound = 4, extent = 4(\r*\n+).*" }
+! { dg-output "CFI_address: subscripts\\\[0\\\] is out of bounds. For dimension = 0, subscripts = -3, lower_bound = -2, upper bound = 6, extent = 4(\r*\n+)" }
+! { dg-output "CFI_address: subscripts\\\[0\\\] is out of bounds. For dimension = 0, subscripts = 2, lower_bound = -2, upper bound = 6, extent = 4(\r*\n+)" }
diff --git a/gcc/testsuite/gfortran.dg/array_temporaries_2.f90 b/gcc/testsuite/gfortran.dg/array_temporaries_2.f90
index 86e0a45e712..756e0086086 100644
--- a/gcc/testsuite/gfortran.dg/array_temporaries_2.f90
+++ b/gcc/testsuite/gfortran.dg/array_temporaries_2.f90
@@ -12,4 +12,4 @@ contains
   end subroutine foo
 end program test
 
-! { dg-output "At line 7 of file .*array_temporaries_2.f90(\n|\r\n|\r)Fortran runtime warning: An array temporary was created for argument 'x' of procedure 'foo'" }
+! { dg-output "At line 7 of file .*array_temporaries_2.f90(\r*\n+)Fortran runtime warning: An array temporary was created for argument 'x' of procedure 'foo'" }
diff --git a/gcc/testsuite/gfortran.dg/bind-c-contiguous-1.f90 b/gcc/testsuite/gfortran.dg/bind-c-contiguous-1.f90
index 77dd3a251d2..975f74b0627 100644
--- a/gcc/testsuite/gfortran.dg/bind-c-contiguous-1.f90
+++ b/gcc/testsuite/gfortran.dg/bind-c-contiguous-1.f90
@@ -1372,203 +1372,203 @@ if (any (a3 /= a_init)) error stop 58
 end
 
 
-! { dg-output "At line 928 of file .*bind-c-contiguous-1.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_size_f'(\n|\r\n|\r)" }"
-! { dg-output "At line 928 of file .*bind-c-contiguous-1.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_size_f'(\n|\r\n|\r)" }"
-! { dg-output "At line 928 of file .*bind-c-contiguous-1.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_size_f'(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output "At line 946 of file .*bind-c-contiguous-1.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_size_in_f'(\n|\r\n|\r)" }"
-! { dg-output "At line 946 of file .*bind-c-contiguous-1.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_size_in_f'(\n|\r\n|\r)" }"
-! { dg-output "At line 946 of file .*bind-c-contiguous-1.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_size_in_f'(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output "At line 965 of file .*bind-c-contiguous-1.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_expl_size_f'(\n|\r\n|\r)" }"
-! { dg-output "At line 965 of file .*bind-c-contiguous-1.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_expl_size_f'(\n|\r\n|\r)" }"
-! { dg-output "At line 965 of file .*bind-c-contiguous-1.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_expl_size_f'(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output "At line 983 of file .*bind-c-contiguous-1.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_expl_size_in_f'(\n|\r\n|\r)" }"
-! { dg-output "At line 983 of file .*bind-c-contiguous-1.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_expl_size_in_f'(\n|\r\n|\r)" }"
-! { dg-output "At line 983 of file .*bind-c-contiguous-1.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_expl_size_in_f'(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output "At line 1039 of file .*bind-c-contiguous-1.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_rank_cont_f'(\n|\r\n|\r)" }"
-! { dg-output "At line 1039 of file .*bind-c-contiguous-1.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_rank_cont_f'(\n|\r\n|\r)" }"
-! { dg-output "At line 1039 of file .*bind-c-contiguous-1.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_rank_cont_f'(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output "At line 1057 of file .*bind-c-contiguous-1.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_rank_cont_in_f'(\n|\r\n|\r)" }"
-! { dg-output "At line 1057 of file .*bind-c-contiguous-1.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_rank_cont_in_f'(\n|\r\n|\r)" }"
-! { dg-output "At line 1057 of file .*bind-c-contiguous-1.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_rank_cont_in_f'(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output "At line 1113 of file .*bind-c-contiguous-1.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_shape_cont_f'(\n|\r\n|\r)" }"
-! { dg-output "At line 1113 of file .*bind-c-contiguous-1.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_shape_cont_f'(\n|\r\n|\r)" }"
-! { dg-output "At line 1113 of file .*bind-c-contiguous-1.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_shape_cont_f'(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output "At line 1131 of file .*bind-c-contiguous-1.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_shape_cont_in_f'(\n|\r\n|\r)" }"
-! { dg-output "At line 1131 of file .*bind-c-contiguous-1.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_shape_cont_in_f'(\n|\r\n|\r)" }"
-! { dg-output "At line 1131 of file .*bind-c-contiguous-1.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_shape_cont_in_f'(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output "At line 1153 of file .*bind-c-contiguous-1.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_size_c'(\n|\r\n|\r)" }"
-! { dg-output "At line 1153 of file .*bind-c-contiguous-1.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_size_c'(\n|\r\n|\r)" }"
-! { dg-output "At line 1153 of file .*bind-c-contiguous-1.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_size_c'(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output "At line 1171 of file .*bind-c-contiguous-1.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_size_in_c'(\n|\r\n|\r)" }"
-! { dg-output "At line 1171 of file .*bind-c-contiguous-1.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_size_in_c'(\n|\r\n|\r)" }"
-! { dg-output "At line 1171 of file .*bind-c-contiguous-1.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_size_in_c'(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output "At line 1190 of file .*bind-c-contiguous-1.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_expl_size_c'(\n|\r\n|\r)" }"
-! { dg-output "At line 1190 of file .*bind-c-contiguous-1.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_expl_size_c'(\n|\r\n|\r)" }"
-! { dg-output "At line 1190 of file .*bind-c-contiguous-1.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_expl_size_c'(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output "At line 1208 of file .*bind-c-contiguous-1.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_expl_size_in_c'(\n|\r\n|\r)" }"
-! { dg-output "At line 1208 of file .*bind-c-contiguous-1.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_expl_size_in_c'(\n|\r\n|\r)" }"
-! { dg-output "At line 1208 of file .*bind-c-contiguous-1.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_expl_size_in_c'(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output "At line 1264 of file .*bind-c-contiguous-1.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_rank_cont_c'(\n|\r\n|\r)" }"
-! { dg-output "At line 1264 of file .*bind-c-contiguous-1.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_rank_cont_c'(\n|\r\n|\r)" }"
-! { dg-output "At line 1264 of file .*bind-c-contiguous-1.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_rank_cont_c'(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output "At line 1282 of file .*bind-c-contiguous-1.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_rank_cont_in_c'(\n|\r\n|\r)" }"
-! { dg-output "At line 1282 of file .*bind-c-contiguous-1.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_rank_cont_in_c'(\n|\r\n|\r)" }"
-! { dg-output "At line 1282 of file .*bind-c-contiguous-1.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_rank_cont_in_c'(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output "At line 1338 of file .*bind-c-contiguous-1.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_shape_cont_c'(\n|\r\n|\r)" }"
-! { dg-output "At line 1338 of file .*bind-c-contiguous-1.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_shape_cont_c'(\n|\r\n|\r)" }"
-! { dg-output "At line 1338 of file .*bind-c-contiguous-1.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_shape_cont_c'(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output "At line 1356 of file .*bind-c-contiguous-1.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_shape_cont_in_c'(\n|\r\n|\r)" }"
-! { dg-output "At line 1356 of file .*bind-c-contiguous-1.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_shape_cont_in_c'(\n|\r\n|\r)" }"
-! { dg-output "At line 1356 of file .*bind-c-contiguous-1.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_shape_cont_in_c'(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
+! { dg-output "At line 928 of file .*bind-c-contiguous-1.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_size_f'(\r*\n+)" }"
+! { dg-output "At line 928 of file .*bind-c-contiguous-1.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_size_f'(\r*\n+)" }"
+! { dg-output "At line 928 of file .*bind-c-contiguous-1.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_size_f'(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output "At line 946 of file .*bind-c-contiguous-1.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_size_in_f'(\r*\n+)" }"
+! { dg-output "At line 946 of file .*bind-c-contiguous-1.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_size_in_f'(\r*\n+)" }"
+! { dg-output "At line 946 of file .*bind-c-contiguous-1.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_size_in_f'(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output "At line 965 of file .*bind-c-contiguous-1.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_expl_size_f'(\r*\n+)" }"
+! { dg-output "At line 965 of file .*bind-c-contiguous-1.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_expl_size_f'(\r*\n+)" }"
+! { dg-output "At line 965 of file .*bind-c-contiguous-1.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_expl_size_f'(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output "At line 983 of file .*bind-c-contiguous-1.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_expl_size_in_f'(\r*\n+)" }"
+! { dg-output "At line 983 of file .*bind-c-contiguous-1.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_expl_size_in_f'(\r*\n+)" }"
+! { dg-output "At line 983 of file .*bind-c-contiguous-1.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_expl_size_in_f'(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output "At line 1039 of file .*bind-c-contiguous-1.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_rank_cont_f'(\r*\n+)" }"
+! { dg-output "At line 1039 of file .*bind-c-contiguous-1.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_rank_cont_f'(\r*\n+)" }"
+! { dg-output "At line 1039 of file .*bind-c-contiguous-1.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_rank_cont_f'(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output "At line 1057 of file .*bind-c-contiguous-1.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_rank_cont_in_f'(\r*\n+)" }"
+! { dg-output "At line 1057 of file .*bind-c-contiguous-1.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_rank_cont_in_f'(\r*\n+)" }"
+! { dg-output "At line 1057 of file .*bind-c-contiguous-1.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_rank_cont_in_f'(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output "At line 1113 of file .*bind-c-contiguous-1.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_shape_cont_f'(\r*\n+)" }"
+! { dg-output "At line 1113 of file .*bind-c-contiguous-1.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_shape_cont_f'(\r*\n+)" }"
+! { dg-output "At line 1113 of file .*bind-c-contiguous-1.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_shape_cont_f'(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output "At line 1131 of file .*bind-c-contiguous-1.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_shape_cont_in_f'(\r*\n+)" }"
+! { dg-output "At line 1131 of file .*bind-c-contiguous-1.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_shape_cont_in_f'(\r*\n+)" }"
+! { dg-output "At line 1131 of file .*bind-c-contiguous-1.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_shape_cont_in_f'(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output "At line 1153 of file .*bind-c-contiguous-1.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_size_c'(\r*\n+)" }"
+! { dg-output "At line 1153 of file .*bind-c-contiguous-1.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_size_c'(\r*\n+)" }"
+! { dg-output "At line 1153 of file .*bind-c-contiguous-1.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_size_c'(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output "At line 1171 of file .*bind-c-contiguous-1.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_size_in_c'(\r*\n+)" }"
+! { dg-output "At line 1171 of file .*bind-c-contiguous-1.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_size_in_c'(\r*\n+)" }"
+! { dg-output "At line 1171 of file .*bind-c-contiguous-1.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_size_in_c'(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output "At line 1190 of file .*bind-c-contiguous-1.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_expl_size_c'(\r*\n+)" }"
+! { dg-output "At line 1190 of file .*bind-c-contiguous-1.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_expl_size_c'(\r*\n+)" }"
+! { dg-output "At line 1190 of file .*bind-c-contiguous-1.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_expl_size_c'(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output "At line 1208 of file .*bind-c-contiguous-1.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_expl_size_in_c'(\r*\n+)" }"
+! { dg-output "At line 1208 of file .*bind-c-contiguous-1.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_expl_size_in_c'(\r*\n+)" }"
+! { dg-output "At line 1208 of file .*bind-c-contiguous-1.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_expl_size_in_c'(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output "At line 1264 of file .*bind-c-contiguous-1.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_rank_cont_c'(\r*\n+)" }"
+! { dg-output "At line 1264 of file .*bind-c-contiguous-1.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_rank_cont_c'(\r*\n+)" }"
+! { dg-output "At line 1264 of file .*bind-c-contiguous-1.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_rank_cont_c'(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output "At line 1282 of file .*bind-c-contiguous-1.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_rank_cont_in_c'(\r*\n+)" }"
+! { dg-output "At line 1282 of file .*bind-c-contiguous-1.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_rank_cont_in_c'(\r*\n+)" }"
+! { dg-output "At line 1282 of file .*bind-c-contiguous-1.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_rank_cont_in_c'(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output "At line 1338 of file .*bind-c-contiguous-1.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_shape_cont_c'(\r*\n+)" }"
+! { dg-output "At line 1338 of file .*bind-c-contiguous-1.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_shape_cont_c'(\r*\n+)" }"
+! { dg-output "At line 1338 of file .*bind-c-contiguous-1.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_shape_cont_c'(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output "At line 1356 of file .*bind-c-contiguous-1.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_shape_cont_in_c'(\r*\n+)" }"
+! { dg-output "At line 1356 of file .*bind-c-contiguous-1.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_shape_cont_in_c'(\r*\n+)" }"
+! { dg-output "At line 1356 of file .*bind-c-contiguous-1.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_shape_cont_in_c'(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
diff --git a/gcc/testsuite/gfortran.dg/bind-c-contiguous-4.f90 b/gcc/testsuite/gfortran.dg/bind-c-contiguous-4.f90
index ab59b0b3854..a58ba20df35 100644
--- a/gcc/testsuite/gfortran.dg/bind-c-contiguous-4.f90
+++ b/gcc/testsuite/gfortran.dg/bind-c-contiguous-4.f90
@@ -1518,203 +1518,203 @@ loc3 = char_assumed_shape_cont_in_c (k=len(a), num=3)
 if (loc3%x /= -1 .or. loc3%y /= -1 .or. loc3%z /= -1) error stop 2
 end
 
-! { dg-output "At line 1003 of file .*bind-c-contiguous-4.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_size_f'(\n|\r\n|\r)" }"
-! { dg-output "At line 1003 of file .*bind-c-contiguous-4.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_size_f'(\n|\r\n|\r)" }"
-! { dg-output "At line 1003 of file .*bind-c-contiguous-4.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_size_f'(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output "At line 1024 of file .*bind-c-contiguous-4.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_size_in_f'(\n|\r\n|\r)" }"
-! { dg-output "At line 1024 of file .*bind-c-contiguous-4.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_size_in_f'(\n|\r\n|\r)" }"
-! { dg-output "At line 1024 of file .*bind-c-contiguous-4.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_size_in_f'(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output "At line 1046 of file .*bind-c-contiguous-4.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_expl_size_f'(\n|\r\n|\r)" }"
-! { dg-output "At line 1046 of file .*bind-c-contiguous-4.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_expl_size_f'(\n|\r\n|\r)" }"
-! { dg-output "At line 1046 of file .*bind-c-contiguous-4.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_expl_size_f'(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output "At line 1067 of file .*bind-c-contiguous-4.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_expl_size_in_f'(\n|\r\n|\r)" }"
-! { dg-output "At line 1067 of file .*bind-c-contiguous-4.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_expl_size_in_f'(\n|\r\n|\r)" }"
-! { dg-output "At line 1067 of file .*bind-c-contiguous-4.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_expl_size_in_f'(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output "At line 1132 of file .*bind-c-contiguous-4.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_rank_cont_f'(\n|\r\n|\r)" }"
-! { dg-output "At line 1132 of file .*bind-c-contiguous-4.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_rank_cont_f'(\n|\r\n|\r)" }"
-! { dg-output "At line 1132 of file .*bind-c-contiguous-4.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_rank_cont_f'(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output "At line 1153 of file .*bind-c-contiguous-4.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_rank_cont_in_f'(\n|\r\n|\r)" }"
-! { dg-output "At line 1153 of file .*bind-c-contiguous-4.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_rank_cont_in_f'(\n|\r\n|\r)" }"
-! { dg-output "At line 1153 of file .*bind-c-contiguous-4.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_rank_cont_in_f'(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output "At line 1218 of file .*bind-c-contiguous-4.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_shape_cont_f'(\n|\r\n|\r)" }"
-! { dg-output "At line 1218 of file .*bind-c-contiguous-4.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_shape_cont_f'(\n|\r\n|\r)" }"
-! { dg-output "At line 1218 of file .*bind-c-contiguous-4.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_shape_cont_f'(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output "At line 1239 of file .*bind-c-contiguous-4.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_shape_cont_in_f'(\n|\r\n|\r)" }"
-! { dg-output "At line 1239 of file .*bind-c-contiguous-4.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_shape_cont_in_f'(\n|\r\n|\r)" }"
-! { dg-output "At line 1239 of file .*bind-c-contiguous-4.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_shape_cont_in_f'(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output "At line 1264 of file .*bind-c-contiguous-4.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_size_c'(\n|\r\n|\r)" }"
-! { dg-output "At line 1264 of file .*bind-c-contiguous-4.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_size_c'(\n|\r\n|\r)" }"
-! { dg-output "At line 1264 of file .*bind-c-contiguous-4.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_size_c'(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output "At line 1285 of file .*bind-c-contiguous-4.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_size_in_c'(\n|\r\n|\r)" }"
-! { dg-output "At line 1285 of file .*bind-c-contiguous-4.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_size_in_c'(\n|\r\n|\r)" }"
-! { dg-output "At line 1285 of file .*bind-c-contiguous-4.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_size_in_c'(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output "At line 1307 of file .*bind-c-contiguous-4.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_expl_size_c'(\n|\r\n|\r)" }"
-! { dg-output "At line 1307 of file .*bind-c-contiguous-4.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_expl_size_c'(\n|\r\n|\r)" }"
-! { dg-output "At line 1307 of file .*bind-c-contiguous-4.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_expl_size_c'(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output "At line 1328 of file .*bind-c-contiguous-4.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_expl_size_in_c'(\n|\r\n|\r)" }"
-! { dg-output "At line 1328 of file .*bind-c-contiguous-4.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_expl_size_in_c'(\n|\r\n|\r)" }"
-! { dg-output "At line 1328 of file .*bind-c-contiguous-4.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_expl_size_in_c'(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output "At line 1393 of file .*bind-c-contiguous-4.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_rank_cont_c'(\n|\r\n|\r)" }"
-! { dg-output "At line 1393 of file .*bind-c-contiguous-4.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_rank_cont_c'(\n|\r\n|\r)" }"
-! { dg-output "At line 1393 of file .*bind-c-contiguous-4.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_rank_cont_c'(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output "At line 1414 of file .*bind-c-contiguous-4.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_rank_cont_in_c'(\n|\r\n|\r)" }"
-! { dg-output "At line 1414 of file .*bind-c-contiguous-4.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_rank_cont_in_c'(\n|\r\n|\r)" }"
-! { dg-output "At line 1414 of file .*bind-c-contiguous-4.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_rank_cont_in_c'(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output "At line 1479 of file .*bind-c-contiguous-4.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_shape_cont_c'(\n|\r\n|\r)" }"
-! { dg-output "At line 1479 of file .*bind-c-contiguous-4.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_shape_cont_c'(\n|\r\n|\r)" }"
-! { dg-output "At line 1479 of file .*bind-c-contiguous-4.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_shape_cont_c'(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output "At line 1500 of file .*bind-c-contiguous-4.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_shape_cont_in_c'(\n|\r\n|\r)" }"
-! { dg-output "At line 1500 of file .*bind-c-contiguous-4.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_shape_cont_in_c'(\n|\r\n|\r)" }"
-! { dg-output "At line 1500 of file .*bind-c-contiguous-4.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_shape_cont_in_c'(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
+! { dg-output "At line 1003 of file .*bind-c-contiguous-4.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_size_f'(\r*\n+)" }"
+! { dg-output "At line 1003 of file .*bind-c-contiguous-4.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_size_f'(\r*\n+)" }"
+! { dg-output "At line 1003 of file .*bind-c-contiguous-4.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_size_f'(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output "At line 1024 of file .*bind-c-contiguous-4.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_size_in_f'(\r*\n+)" }"
+! { dg-output "At line 1024 of file .*bind-c-contiguous-4.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_size_in_f'(\r*\n+)" }"
+! { dg-output "At line 1024 of file .*bind-c-contiguous-4.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_size_in_f'(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output "At line 1046 of file .*bind-c-contiguous-4.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_expl_size_f'(\r*\n+)" }"
+! { dg-output "At line 1046 of file .*bind-c-contiguous-4.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_expl_size_f'(\r*\n+)" }"
+! { dg-output "At line 1046 of file .*bind-c-contiguous-4.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_expl_size_f'(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output "At line 1067 of file .*bind-c-contiguous-4.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_expl_size_in_f'(\r*\n+)" }"
+! { dg-output "At line 1067 of file .*bind-c-contiguous-4.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_expl_size_in_f'(\r*\n+)" }"
+! { dg-output "At line 1067 of file .*bind-c-contiguous-4.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_expl_size_in_f'(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output "At line 1132 of file .*bind-c-contiguous-4.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_rank_cont_f'(\r*\n+)" }"
+! { dg-output "At line 1132 of file .*bind-c-contiguous-4.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_rank_cont_f'(\r*\n+)" }"
+! { dg-output "At line 1132 of file .*bind-c-contiguous-4.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_rank_cont_f'(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output "At line 1153 of file .*bind-c-contiguous-4.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_rank_cont_in_f'(\r*\n+)" }"
+! { dg-output "At line 1153 of file .*bind-c-contiguous-4.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_rank_cont_in_f'(\r*\n+)" }"
+! { dg-output "At line 1153 of file .*bind-c-contiguous-4.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_rank_cont_in_f'(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output "At line 1218 of file .*bind-c-contiguous-4.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_shape_cont_f'(\r*\n+)" }"
+! { dg-output "At line 1218 of file .*bind-c-contiguous-4.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_shape_cont_f'(\r*\n+)" }"
+! { dg-output "At line 1218 of file .*bind-c-contiguous-4.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_shape_cont_f'(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output "At line 1239 of file .*bind-c-contiguous-4.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_shape_cont_in_f'(\r*\n+)" }"
+! { dg-output "At line 1239 of file .*bind-c-contiguous-4.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_shape_cont_in_f'(\r*\n+)" }"
+! { dg-output "At line 1239 of file .*bind-c-contiguous-4.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_shape_cont_in_f'(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output "At line 1264 of file .*bind-c-contiguous-4.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_size_c'(\r*\n+)" }"
+! { dg-output "At line 1264 of file .*bind-c-contiguous-4.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_size_c'(\r*\n+)" }"
+! { dg-output "At line 1264 of file .*bind-c-contiguous-4.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_size_c'(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output "At line 1285 of file .*bind-c-contiguous-4.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_size_in_c'(\r*\n+)" }"
+! { dg-output "At line 1285 of file .*bind-c-contiguous-4.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_size_in_c'(\r*\n+)" }"
+! { dg-output "At line 1285 of file .*bind-c-contiguous-4.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_size_in_c'(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output "At line 1307 of file .*bind-c-contiguous-4.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_expl_size_c'(\r*\n+)" }"
+! { dg-output "At line 1307 of file .*bind-c-contiguous-4.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_expl_size_c'(\r*\n+)" }"
+! { dg-output "At line 1307 of file .*bind-c-contiguous-4.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_expl_size_c'(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output "At line 1328 of file .*bind-c-contiguous-4.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_expl_size_in_c'(\r*\n+)" }"
+! { dg-output "At line 1328 of file .*bind-c-contiguous-4.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_expl_size_in_c'(\r*\n+)" }"
+! { dg-output "At line 1328 of file .*bind-c-contiguous-4.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_expl_size_in_c'(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output "At line 1393 of file .*bind-c-contiguous-4.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_rank_cont_c'(\r*\n+)" }"
+! { dg-output "At line 1393 of file .*bind-c-contiguous-4.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_rank_cont_c'(\r*\n+)" }"
+! { dg-output "At line 1393 of file .*bind-c-contiguous-4.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_rank_cont_c'(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output "At line 1414 of file .*bind-c-contiguous-4.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_rank_cont_in_c'(\r*\n+)" }"
+! { dg-output "At line 1414 of file .*bind-c-contiguous-4.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_rank_cont_in_c'(\r*\n+)" }"
+! { dg-output "At line 1414 of file .*bind-c-contiguous-4.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_rank_cont_in_c'(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output "At line 1479 of file .*bind-c-contiguous-4.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_shape_cont_c'(\r*\n+)" }"
+! { dg-output "At line 1479 of file .*bind-c-contiguous-4.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_shape_cont_c'(\r*\n+)" }"
+! { dg-output "At line 1479 of file .*bind-c-contiguous-4.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_shape_cont_c'(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output "At line 1500 of file .*bind-c-contiguous-4.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_shape_cont_in_c'(\r*\n+)" }"
+! { dg-output "At line 1500 of file .*bind-c-contiguous-4.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_shape_cont_in_c'(\r*\n+)" }"
+! { dg-output "At line 1500 of file .*bind-c-contiguous-4.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_shape_cont_in_c'(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
diff --git a/gcc/testsuite/gfortran.dg/bind-c-contiguous-5.f90 b/gcc/testsuite/gfortran.dg/bind-c-contiguous-5.f90
index 3eb2732a368..d1af9f7767a 100644
--- a/gcc/testsuite/gfortran.dg/bind-c-contiguous-5.f90
+++ b/gcc/testsuite/gfortran.dg/bind-c-contiguous-5.f90
@@ -1372,203 +1372,203 @@ if (any (a3 /= a_init)) error stop 58
 end
 
 
-! { dg-output "At line 928 of file .*bind-c-contiguous-5.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_size_f'(\n|\r\n|\r)" }"
-! { dg-output "At line 928 of file .*bind-c-contiguous-5.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_size_f'(\n|\r\n|\r)" }"
-! { dg-output "At line 928 of file .*bind-c-contiguous-5.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_size_f'(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output "At line 946 of file .*bind-c-contiguous-5.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_size_in_f'(\n|\r\n|\r)" }"
-! { dg-output "At line 946 of file .*bind-c-contiguous-5.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_size_in_f'(\n|\r\n|\r)" }"
-! { dg-output "At line 946 of file .*bind-c-contiguous-5.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_size_in_f'(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output "At line 965 of file .*bind-c-contiguous-5.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_expl_size_f'(\n|\r\n|\r)" }"
-! { dg-output "At line 965 of file .*bind-c-contiguous-5.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_expl_size_f'(\n|\r\n|\r)" }"
-! { dg-output "At line 965 of file .*bind-c-contiguous-5.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_expl_size_f'(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output "At line 983 of file .*bind-c-contiguous-5.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_expl_size_in_f'(\n|\r\n|\r)" }"
-! { dg-output "At line 983 of file .*bind-c-contiguous-5.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_expl_size_in_f'(\n|\r\n|\r)" }"
-! { dg-output "At line 983 of file .*bind-c-contiguous-5.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_expl_size_in_f'(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output "At line 1039 of file .*bind-c-contiguous-5.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_rank_cont_f'(\n|\r\n|\r)" }"
-! { dg-output "At line 1039 of file .*bind-c-contiguous-5.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_rank_cont_f'(\n|\r\n|\r)" }"
-! { dg-output "At line 1039 of file .*bind-c-contiguous-5.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_rank_cont_f'(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output "At line 1057 of file .*bind-c-contiguous-5.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_rank_cont_in_f'(\n|\r\n|\r)" }"
-! { dg-output "At line 1057 of file .*bind-c-contiguous-5.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_rank_cont_in_f'(\n|\r\n|\r)" }"
-! { dg-output "At line 1057 of file .*bind-c-contiguous-5.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_rank_cont_in_f'(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output "At line 1113 of file .*bind-c-contiguous-5.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_shape_cont_f'(\n|\r\n|\r)" }"
-! { dg-output "At line 1113 of file .*bind-c-contiguous-5.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_shape_cont_f'(\n|\r\n|\r)" }"
-! { dg-output "At line 1113 of file .*bind-c-contiguous-5.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_shape_cont_f'(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output "At line 1131 of file .*bind-c-contiguous-5.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_shape_cont_in_f'(\n|\r\n|\r)" }"
-! { dg-output "At line 1131 of file .*bind-c-contiguous-5.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_shape_cont_in_f'(\n|\r\n|\r)" }"
-! { dg-output "At line 1131 of file .*bind-c-contiguous-5.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_shape_cont_in_f'(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output "At line 1153 of file .*bind-c-contiguous-5.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_size_c'(\n|\r\n|\r)" }"
-! { dg-output "At line 1153 of file .*bind-c-contiguous-5.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_size_c'(\n|\r\n|\r)" }"
-! { dg-output "At line 1153 of file .*bind-c-contiguous-5.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_size_c'(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output "At line 1171 of file .*bind-c-contiguous-5.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_size_in_c'(\n|\r\n|\r)" }"
-! { dg-output "At line 1171 of file .*bind-c-contiguous-5.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_size_in_c'(\n|\r\n|\r)" }"
-! { dg-output "At line 1171 of file .*bind-c-contiguous-5.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_size_in_c'(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output "At line 1190 of file .*bind-c-contiguous-5.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_expl_size_c'(\n|\r\n|\r)" }"
-! { dg-output "At line 1190 of file .*bind-c-contiguous-5.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_expl_size_c'(\n|\r\n|\r)" }"
-! { dg-output "At line 1190 of file .*bind-c-contiguous-5.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_expl_size_c'(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output "At line 1208 of file .*bind-c-contiguous-5.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_expl_size_in_c'(\n|\r\n|\r)" }"
-! { dg-output "At line 1208 of file .*bind-c-contiguous-5.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_expl_size_in_c'(\n|\r\n|\r)" }"
-! { dg-output "At line 1208 of file .*bind-c-contiguous-5.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_expl_size_in_c'(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output "At line 1264 of file .*bind-c-contiguous-5.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_rank_cont_c'(\n|\r\n|\r)" }"
-! { dg-output "At line 1264 of file .*bind-c-contiguous-5.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_rank_cont_c'(\n|\r\n|\r)" }"
-! { dg-output "At line 1264 of file .*bind-c-contiguous-5.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_rank_cont_c'(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output "At line 1282 of file .*bind-c-contiguous-5.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_rank_cont_in_c'(\n|\r\n|\r)" }"
-! { dg-output "At line 1282 of file .*bind-c-contiguous-5.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_rank_cont_in_c'(\n|\r\n|\r)" }"
-! { dg-output "At line 1282 of file .*bind-c-contiguous-5.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_rank_cont_in_c'(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output "At line 1338 of file .*bind-c-contiguous-5.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_shape_cont_c'(\n|\r\n|\r)" }"
-! { dg-output "At line 1338 of file .*bind-c-contiguous-5.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_shape_cont_c'(\n|\r\n|\r)" }"
-! { dg-output "At line 1338 of file .*bind-c-contiguous-5.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_shape_cont_c'(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
-! { dg-output "At line 1356 of file .*bind-c-contiguous-5.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_shape_cont_in_c'(\n|\r\n|\r)" }"
-! { dg-output "At line 1356 of file .*bind-c-contiguous-5.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_shape_cont_in_c'(\n|\r\n|\r)" }"
-! { dg-output "At line 1356 of file .*bind-c-contiguous-5.f90(\n|\r\n|\r)" }"
-! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_shape_cont_in_c'(\n|\r\n|\r)" }"
-! { dg-output " abcghinop(\n|\r\n|\r)" }"
-! { dg-output " defghijlm(\n|\r\n|\r)" }"
+! { dg-output "At line 928 of file .*bind-c-contiguous-5.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_size_f'(\r*\n+)" }"
+! { dg-output "At line 928 of file .*bind-c-contiguous-5.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_size_f'(\r*\n+)" }"
+! { dg-output "At line 928 of file .*bind-c-contiguous-5.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_size_f'(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output "At line 946 of file .*bind-c-contiguous-5.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_size_in_f'(\r*\n+)" }"
+! { dg-output "At line 946 of file .*bind-c-contiguous-5.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_size_in_f'(\r*\n+)" }"
+! { dg-output "At line 946 of file .*bind-c-contiguous-5.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_size_in_f'(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output "At line 965 of file .*bind-c-contiguous-5.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_expl_size_f'(\r*\n+)" }"
+! { dg-output "At line 965 of file .*bind-c-contiguous-5.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_expl_size_f'(\r*\n+)" }"
+! { dg-output "At line 965 of file .*bind-c-contiguous-5.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_expl_size_f'(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output "At line 983 of file .*bind-c-contiguous-5.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_expl_size_in_f'(\r*\n+)" }"
+! { dg-output "At line 983 of file .*bind-c-contiguous-5.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_expl_size_in_f'(\r*\n+)" }"
+! { dg-output "At line 983 of file .*bind-c-contiguous-5.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_expl_size_in_f'(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output "At line 1039 of file .*bind-c-contiguous-5.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_rank_cont_f'(\r*\n+)" }"
+! { dg-output "At line 1039 of file .*bind-c-contiguous-5.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_rank_cont_f'(\r*\n+)" }"
+! { dg-output "At line 1039 of file .*bind-c-contiguous-5.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_rank_cont_f'(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output "At line 1057 of file .*bind-c-contiguous-5.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_rank_cont_in_f'(\r*\n+)" }"
+! { dg-output "At line 1057 of file .*bind-c-contiguous-5.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_rank_cont_in_f'(\r*\n+)" }"
+! { dg-output "At line 1057 of file .*bind-c-contiguous-5.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_rank_cont_in_f'(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output "At line 1113 of file .*bind-c-contiguous-5.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_shape_cont_f'(\r*\n+)" }"
+! { dg-output "At line 1113 of file .*bind-c-contiguous-5.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_shape_cont_f'(\r*\n+)" }"
+! { dg-output "At line 1113 of file .*bind-c-contiguous-5.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_shape_cont_f'(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output "At line 1131 of file .*bind-c-contiguous-5.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_shape_cont_in_f'(\r*\n+)" }"
+! { dg-output "At line 1131 of file .*bind-c-contiguous-5.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_shape_cont_in_f'(\r*\n+)" }"
+! { dg-output "At line 1131 of file .*bind-c-contiguous-5.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_shape_cont_in_f'(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output "At line 1153 of file .*bind-c-contiguous-5.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_size_c'(\r*\n+)" }"
+! { dg-output "At line 1153 of file .*bind-c-contiguous-5.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_size_c'(\r*\n+)" }"
+! { dg-output "At line 1153 of file .*bind-c-contiguous-5.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_size_c'(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output "At line 1171 of file .*bind-c-contiguous-5.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_size_in_c'(\r*\n+)" }"
+! { dg-output "At line 1171 of file .*bind-c-contiguous-5.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_size_in_c'(\r*\n+)" }"
+! { dg-output "At line 1171 of file .*bind-c-contiguous-5.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_size_in_c'(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output "At line 1190 of file .*bind-c-contiguous-5.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_expl_size_c'(\r*\n+)" }"
+! { dg-output "At line 1190 of file .*bind-c-contiguous-5.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_expl_size_c'(\r*\n+)" }"
+! { dg-output "At line 1190 of file .*bind-c-contiguous-5.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_expl_size_c'(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output "At line 1208 of file .*bind-c-contiguous-5.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_expl_size_in_c'(\r*\n+)" }"
+! { dg-output "At line 1208 of file .*bind-c-contiguous-5.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_expl_size_in_c'(\r*\n+)" }"
+! { dg-output "At line 1208 of file .*bind-c-contiguous-5.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_expl_size_in_c'(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output "At line 1264 of file .*bind-c-contiguous-5.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_rank_cont_c'(\r*\n+)" }"
+! { dg-output "At line 1264 of file .*bind-c-contiguous-5.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_rank_cont_c'(\r*\n+)" }"
+! { dg-output "At line 1264 of file .*bind-c-contiguous-5.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_rank_cont_c'(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output "At line 1282 of file .*bind-c-contiguous-5.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_rank_cont_in_c'(\r*\n+)" }"
+! { dg-output "At line 1282 of file .*bind-c-contiguous-5.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_rank_cont_in_c'(\r*\n+)" }"
+! { dg-output "At line 1282 of file .*bind-c-contiguous-5.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_rank_cont_in_c'(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output "At line 1338 of file .*bind-c-contiguous-5.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_shape_cont_c'(\r*\n+)" }"
+! { dg-output "At line 1338 of file .*bind-c-contiguous-5.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_shape_cont_c'(\r*\n+)" }"
+! { dg-output "At line 1338 of file .*bind-c-contiguous-5.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_shape_cont_c'(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
+! { dg-output "At line 1356 of file .*bind-c-contiguous-5.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'xx' of procedure 'char_assumed_shape_cont_in_c'(\r*\n+)" }"
+! { dg-output "At line 1356 of file .*bind-c-contiguous-5.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'yy' of procedure 'char_assumed_shape_cont_in_c'(\r*\n+)" }"
+! { dg-output "At line 1356 of file .*bind-c-contiguous-5.f90(\r*\n+)" }"
+! { dg-output "Fortran runtime warning: An array temporary was created for argument 'zz' of procedure 'char_assumed_shape_cont_in_c'(\r*\n+)" }"
+! { dg-output " abcghinop(\r*\n+)" }"
+! { dg-output " defghijlm(\r*\n+)" }"
diff --git a/gcc/testsuite/gfortran.dg/fmt_error_4.f90 b/gcc/testsuite/gfortran.dg/fmt_error_4.f90
index 2310573bd1f..6c44f1091b2 100644
--- a/gcc/testsuite/gfortran.dg/fmt_error_4.f90
+++ b/gcc/testsuite/gfortran.dg/fmt_error_4.f90
@@ -19,4 +19,4 @@ PROGRAM main
   CALL format_runtime ('(A, Q, A)')
 END PROGRAM main
 
-! { dg-output "Unexpected element 'Q'.*(\n|\r\n|\r)\\(A, Q, A\\)(\n|\r\n|\r)    \\^" }
+! { dg-output "Unexpected element 'Q'.*(\r*\n+)\\(A, Q, A\\)(\r*\n+)    \\^" }
diff --git a/gcc/testsuite/gfortran.dg/fmt_error_5.f90 b/gcc/testsuite/gfortran.dg/fmt_error_5.f90
index 18de68e0719..1076bafb90d 100644
--- a/gcc/testsuite/gfortran.dg/fmt_error_5.f90
+++ b/gcc/testsuite/gfortran.dg/fmt_error_5.f90
@@ -19,4 +19,4 @@ PROGRAM main
   CALL format_runtime ('(Q)')
 END PROGRAM main
 
-! { dg-output "Unexpected element 'Q'.*(\n|\r\n|\r)\\(Q\\)(\n|\r\n|\r) \\^" }
+! { dg-output "Unexpected element 'Q'.*(\r*\n+)\\(Q\\)(\r*\n+) \\^" }
diff --git a/gcc/testsuite/gfortran.dg/fmt_float.f90 b/gcc/testsuite/gfortran.dg/fmt_float.f90
index 3ff1833c773..ff3d28eaca5 100644
--- a/gcc/testsuite/gfortran.dg/fmt_float.f90
+++ b/gcc/testsuite/gfortran.dg/fmt_float.f90
@@ -23,21 +23,21 @@ print '(3E20.4e5)', x, x/10.0, x/100.0
 print '(3E20.4e6)', x, x/10.0, x/100.0
 print '(3E20.4e7)', x, x/10.0, x/100.0
 end
-! { dg-output "            0.10E\\+01            0.10E\\+00            0.10E-01(\n|\r\n|\r)" }
-! { dg-output "           0.10E\\+001           0.10E\\+000           0.10E-001(\n|\r\n|\r)" }
-! { dg-output "          0.10E\\+0001          0.10E\\+0000          0.10E-0001(\n|\r\n|\r)" }
-! { dg-output "         0.10E\\+00001         0.10E\\+00000         0.10E-00001(\n|\r\n|\r)" }
-! { dg-output "        0.10E\\+000001        0.10E\\+000000        0.10E-000001(\n|\r\n|\r)" }
-! { dg-output "       0.10E\\+0000001       0.10E\\+0000000       0.10E-0000001(\n|\r\n|\r)" }
-! { dg-output "           0.100E\\+01           0.100E\\+00           0.100E-01(\n|\r\n|\r)" }
-! { dg-output "          0.100E\\+001          0.100E\\+000          0.100E-001(\n|\r\n|\r)" }
-! { dg-output "         0.100E\\+0001         0.100E\\+0000         0.100E-0001(\n|\r\n|\r)" }
-! { dg-output "        0.100E\\+00001        0.100E\\+00000        0.100E-00001(\n|\r\n|\r)" }
-! { dg-output "       0.100E\\+000001       0.100E\\+000000       0.100E-000001(\n|\r\n|\r)" }
-! { dg-output "      0.100E\\+0000001      0.100E\\+0000000      0.100E-0000001(\n|\r\n|\r)" }
-! { dg-output "          0.1000E\\+01          0.1000E\\+00          0.1000E-01(\n|\r\n|\r)" }
-! { dg-output "         0.1000E\\+001         0.1000E\\+000         0.1000E-001(\n|\r\n|\r)" }
-! { dg-output "        0.1000E\\+0001        0.1000E\\+0000        0.1000E-0001(\n|\r\n|\r)" }
-! { dg-output "       0.1000E\\+00001       0.1000E\\+00000       0.1000E-00001(\n|\r\n|\r)" }
-! { dg-output "      0.1000E\\+000001      0.1000E\\+000000      0.1000E-000001(\n|\r\n|\r)" }
-! { dg-output "     0.1000E\\+0000001     0.1000E\\+0000000     0.1000E-0000001(\n|\r\n|\r)" }
+! { dg-output "            0.10E\\+01            0.10E\\+00            0.10E-01(\r*\n+)" }
+! { dg-output "           0.10E\\+001           0.10E\\+000           0.10E-001(\r*\n+)" }
+! { dg-output "          0.10E\\+0001          0.10E\\+0000          0.10E-0001(\r*\n+)" }
+! { dg-output "         0.10E\\+00001         0.10E\\+00000         0.10E-00001(\r*\n+)" }
+! { dg-output "        0.10E\\+000001        0.10E\\+000000        0.10E-000001(\r*\n+)" }
+! { dg-output "       0.10E\\+0000001       0.10E\\+0000000       0.10E-0000001(\r*\n+)" }
+! { dg-output "           0.100E\\+01           0.100E\\+00           0.100E-01(\r*\n+)" }
+! { dg-output "          0.100E\\+001          0.100E\\+000          0.100E-001(\r*\n+)" }
+! { dg-output "         0.100E\\+0001         0.100E\\+0000         0.100E-0001(\r*\n+)" }
+! { dg-output "        0.100E\\+00001        0.100E\\+00000        0.100E-00001(\r*\n+)" }
+! { dg-output "       0.100E\\+000001       0.100E\\+000000       0.100E-000001(\r*\n+)" }
+! { dg-output "      0.100E\\+0000001      0.100E\\+0000000      0.100E-0000001(\r*\n+)" }
+! { dg-output "          0.1000E\\+01          0.1000E\\+00          0.1000E-01(\r*\n+)" }
+! { dg-output "         0.1000E\\+001         0.1000E\\+000         0.1000E-001(\r*\n+)" }
+! { dg-output "        0.1000E\\+0001        0.1000E\\+0000        0.1000E-0001(\r*\n+)" }
+! { dg-output "       0.1000E\\+00001       0.1000E\\+00000       0.1000E-00001(\r*\n+)" }
+! { dg-output "      0.1000E\\+000001      0.1000E\\+000000      0.1000E-000001(\r*\n+)" }
+! { dg-output "     0.1000E\\+0000001     0.1000E\\+0000000     0.1000E-0000001(\r*\n+)" }
diff --git a/gcc/testsuite/gfortran.dg/fmt_l.f90 b/gcc/testsuite/gfortran.dg/fmt_l.f90
index ffefa0d548c..5ca313fa387 100644
--- a/gcc/testsuite/gfortran.dg/fmt_l.f90
+++ b/gcc/testsuite/gfortran.dg/fmt_l.f90
@@ -52,34 +52,34 @@ program test_l
 
 end program test_l
 ! { dg-output "At line 14 of file.*" }
-! { dg-output "Fortran runtime warning: Positive width required with L descriptor(\n|\r\n|\r)" }
+! { dg-output "Fortran runtime warning: Positive width required with L descriptor(\r*\n+)" }
 ! { dg-output "At line 15 of file.*" }
-! { dg-output "Fortran runtime warning: Positive width required with L descriptor(\n|\r\n|\r)" }
+! { dg-output "Fortran runtime warning: Positive width required with L descriptor(\r*\n+)" }
 ! { dg-output "At line 19 of file.*" }
-! { dg-output "Fortran runtime warning: Positive width required with L descriptor(\n|\r\n|\r)" }
+! { dg-output "Fortran runtime warning: Positive width required with L descriptor(\r*\n+)" }
 ! { dg-output "At line 20 of file.*" }
-! { dg-output "Fortran runtime warning: Positive width required with L descriptor(\n|\r\n|\r)" }
+! { dg-output "Fortran runtime warning: Positive width required with L descriptor(\r*\n+)" }
 ! { dg-output "At line 24 of file.*" }
-! { dg-output "Fortran runtime warning: Positive width required with L descriptor(\n|\r\n|\r)" }
+! { dg-output "Fortran runtime warning: Positive width required with L descriptor(\r*\n+)" }
 ! { dg-output "At line 25 of file.*" }
-! { dg-output "Fortran runtime warning: Positive width required with L descriptor(\n|\r\n|\r)" }
+! { dg-output "Fortran runtime warning: Positive width required with L descriptor(\r*\n+)" }
 ! { dg-output "At line 29 of file.*" }
-! { dg-output "Fortran runtime warning: Positive width required with L descriptor(\n|\r\n|\r)" }
+! { dg-output "Fortran runtime warning: Positive width required with L descriptor(\r*\n+)" }
 ! { dg-output "At line 30 of file.*" }
-! { dg-output "Fortran runtime warning: Positive width required with L descriptor(\n|\r\n|\r)" }
+! { dg-output "Fortran runtime warning: Positive width required with L descriptor(\r*\n+)" }
 ! { dg-output "At line 34 of file.*" }
-! { dg-output "Fortran runtime warning: Positive width required with L descriptor(\n|\r\n|\r)" }
+! { dg-output "Fortran runtime warning: Positive width required with L descriptor(\r*\n+)" }
 ! { dg-output "At line 35 of file.*" }
-! { dg-output "Fortran runtime warning: Positive width required with L descriptor(\n|\r\n|\r)" }
+! { dg-output "Fortran runtime warning: Positive width required with L descriptor(\r*\n+)" }
 ! { dg-output "At line 39 of file.*" }
-! { dg-output "Fortran runtime warning: Positive width required with L descriptor(\n|\r\n|\r)" }
+! { dg-output "Fortran runtime warning: Positive width required with L descriptor(\r*\n+)" }
 ! { dg-output "At line 40 of file.*" }
-! { dg-output "Fortran runtime warning: Positive width required with L descriptor(\n|\r\n|\r)" }
+! { dg-output "Fortran runtime warning: Positive width required with L descriptor(\r*\n+)" }
 ! { dg-output "At line 44 of file.*" }
-! { dg-output "Fortran runtime warning: Positive width required with L descriptor(\n|\r\n|\r)" }
+! { dg-output "Fortran runtime warning: Positive width required with L descriptor(\r*\n+)" }
 ! { dg-output "At line 45 of file.*" }
-! { dg-output "Fortran runtime warning: Positive width required with L descriptor(\n|\r\n|\r)" }
+! { dg-output "Fortran runtime warning: Positive width required with L descriptor(\r*\n+)" }
 ! { dg-output "At line 49 of file.*" }
-! { dg-output "Fortran runtime warning: Positive width required with L descriptor(\n|\r\n|\r)" }
+! { dg-output "Fortran runtime warning: Positive width required with L descriptor(\r*\n+)" }
 ! { dg-output "At line 50 of file.*" }
-! { dg-output "Fortran runtime warning: Positive width required with L descriptor(\n|\r\n|\r)" }
+! { dg-output "Fortran runtime warning: Positive width required with L descriptor(\r*\n+)" }
diff --git a/gcc/testsuite/gfortran.dg/fmt_nonchar_2.f90 b/gcc/testsuite/gfortran.dg/fmt_nonchar_2.f90
index 7c0f524c3c9..6aee861b78d 100644
--- a/gcc/testsuite/gfortran.dg/fmt_nonchar_2.f90
+++ b/gcc/testsuite/gfortran.dg/fmt_nonchar_2.f90
@@ -19,4 +19,4 @@ program p
    print x%a(1) ! { dg-warning "Legacy Extension: Non-character in FORMAT" }
 end
 
-! { dg-output "hello W2(\n|\r\n|\r)hello W3(\n|\r\n|\r)hello W1" }
+! { dg-output "hello W2(\r*\n+)hello W3(\r*\n+)hello W1" }
diff --git a/gcc/testsuite/gfortran.dg/fmt_zero_precision.f90 b/gcc/testsuite/gfortran.dg/fmt_zero_precision.f90
index 459bca4485a..b522698e547 100644
--- a/gcc/testsuite/gfortran.dg/fmt_zero_precision.f90
+++ b/gcc/testsuite/gfortran.dg/fmt_zero_precision.f90
@@ -46,40 +46,40 @@
  250   format(1pe7.0,"<")
  300   format(1pe6.0,"<")
   end
-! { dg-output " 1\\.<(\n|\r\n|\r)" }
-! { dg-output "-1\\.<(\n|\r\n|\r)" }
-! { dg-output "-9\\.<(\n|\r\n|\r)" }
-! { dg-output "-1\\.<(\n|\r\n|\r)" }
-! { dg-output "-1\\.<(\n|\r\n|\r)" }
-! { dg-output "-1\\.<(\n|\r\n|\r)" }
-! { dg-output "-1\\.<(\n|\r\n|\r)" }
-! { dg-output "-0\\.<(\n|\r\n|\r)" }
-! { dg-output "     38\\.<(\n|\r\n|\r)" }
-! { dg-output "  10345\\.<(\n|\r\n|\r)" }
-! { dg-output "    334\\.<(\n|\r\n|\r)" }
-! { dg-output "    333\\.<(\n|\r\n|\r)" }
-! { dg-output "1\\.E-01(\n|\r\n|\r)" }
-! { dg-output "-1\\.E\\+00<(\n|\r\n|\r)" }
-! { dg-output " 1\\.E\\+00<(\n|\r\n|\r)" }
-! { dg-output "-9\\.E\\+00<(\n|\r\n|\r)" }
-! { dg-output "-1\\.E\\+00<(\n|\r\n|\r)" }
-! { dg-output "-1\\.E\\+00<(\n|\r\n|\r)" }
-! { dg-output "-1\\.E\\+00<(\n|\r\n|\r)" }
-! { dg-output "-6\\.E-01<(\n|\r\n|\r)" }
-! { dg-output "-5\\.E-01<(\n|\r\n|\r)" }
-! { dg-output "  4\\.E\\+01<(\n|\r\n|\r)" }
-! { dg-output "  1\\.E\\+04<(\n|\r\n|\r)" }
-! { dg-output "  3\\.E\\+02<(\n|\r\n|\r)" }
-! { dg-output "  3\\.E\\+02<(\n|\r\n|\r)" }
-! { dg-output "-1\\.E\\+00<(\n|\r\n|\r)" }
-! { dg-output " 1\\.E\\+00<(\n|\r\n|\r)" }
-! { dg-output "-9\\.E\\+00<(\n|\r\n|\r)" }
-! { dg-output "-1\\.E\\+00<(\n|\r\n|\r)" }
-! { dg-output "-1\\.E\\+00<(\n|\r\n|\r)" }
-! { dg-output "-1\\.E\\+00<(\n|\r\n|\r)" }
-! { dg-output "-6\\.E-01<(\n|\r\n|\r)" }
-! { dg-output "-5\\.E-01<(\n|\r\n|\r)" }
-! { dg-output "4\\.E\\+01<(\n|\r\n|\r)" }
-! { dg-output "1\\.E\\+04<(\n|\r\n|\r)" }
-! { dg-output "3\\.E\\+02<(\n|\r\n|\r)" }
-! { dg-output "3\\.E\\+02<(\n|\r\n|\r)" }
+! { dg-output " 1\\.<(\r*\n+)" }
+! { dg-output "-1\\.<(\r*\n+)" }
+! { dg-output "-9\\.<(\r*\n+)" }
+! { dg-output "-1\\.<(\r*\n+)" }
+! { dg-output "-1\\.<(\r*\n+)" }
+! { dg-output "-1\\.<(\r*\n+)" }
+! { dg-output "-1\\.<(\r*\n+)" }
+! { dg-output "-0\\.<(\r*\n+)" }
+! { dg-output "     38\\.<(\r*\n+)" }
+! { dg-output "  10345\\.<(\r*\n+)" }
+! { dg-output "    334\\.<(\r*\n+)" }
+! { dg-output "    333\\.<(\r*\n+)" }
+! { dg-output "1\\.E-01(\r*\n+)" }
+! { dg-output "-1\\.E\\+00<(\r*\n+)" }
+! { dg-output " 1\\.E\\+00<(\r*\n+)" }
+! { dg-output "-9\\.E\\+00<(\r*\n+)" }
+! { dg-output "-1\\.E\\+00<(\r*\n+)" }
+! { dg-output "-1\\.E\\+00<(\r*\n+)" }
+! { dg-output "-1\\.E\\+00<(\r*\n+)" }
+! { dg-output "-6\\.E-01<(\r*\n+)" }
+! { dg-output "-5\\.E-01<(\r*\n+)" }
+! { dg-output "  4\\.E\\+01<(\r*\n+)" }
+! { dg-output "  1\\.E\\+04<(\r*\n+)" }
+! { dg-output "  3\\.E\\+02<(\r*\n+)" }
+! { dg-output "  3\\.E\\+02<(\r*\n+)" }
+! { dg-output "-1\\.E\\+00<(\r*\n+)" }
+! { dg-output " 1\\.E\\+00<(\r*\n+)" }
+! { dg-output "-9\\.E\\+00<(\r*\n+)" }
+! { dg-output "-1\\.E\\+00<(\r*\n+)" }
+! { dg-output "-1\\.E\\+00<(\r*\n+)" }
+! { dg-output "-1\\.E\\+00<(\r*\n+)" }
+! { dg-output "-6\\.E-01<(\r*\n+)" }
+! { dg-output "-5\\.E-01<(\r*\n+)" }
+! { dg-output "4\\.E\\+01<(\r*\n+)" }
+! { dg-output "1\\.E\\+04<(\r*\n+)" }
+! { dg-output "3\\.E\\+02<(\r*\n+)" }
+! { dg-output "3\\.E\\+02<(\r*\n+)" }
diff --git a/gcc/testsuite/gfortran.dg/g77/f77-edit-apostrophe-out.f b/gcc/testsuite/gfortran.dg/g77/f77-edit-apostrophe-out.f
index aa51bc05c25..3a5c10bcbfd 100644
--- a/gcc/testsuite/gfortran.dg/g77/f77-edit-apostrophe-out.f
+++ b/gcc/testsuite/gfortran.dg/g77/f77-edit-apostrophe-out.f
@@ -11,11 +11,11 @@ C { dg-output "^" }
  40   format('a trailing apostrophe''')
  50   format('''and all of the above -''-''')
 
-      write(*,10)        ! { dg-output "abcde(\n|\r\n|\r)" } 
-      write(*,20)        ! { dg-output "and an apostrophe -'-(\n|\r\n|\r)" }
-      write(*,30)        ! { dg-output "'a leading apostrophe(\n|\r\n|\r)" }
-      write(*,40)        ! { dg-output "a trailing apostrophe'(\n|\r\n|\r)" }
-      write(*,50)        ! { dg-output "'and all of the above -'-'(\n|\r\n|\r)" }
+      write(*,10)        ! { dg-output "abcde(\r*\n+)" } 
+      write(*,20)        ! { dg-output "and an apostrophe -'-(\r*\n+)" }
+      write(*,30)        ! { dg-output "'a leading apostrophe(\r*\n+)" }
+      write(*,40)        ! { dg-output "a trailing apostrophe'(\r*\n+)" }
+      write(*,50)        ! { dg-output "'and all of the above -'-'(\r*\n+)" }
 
 C { dg-output "\$" }
       end
diff --git a/gcc/testsuite/gfortran.dg/g77/f77-edit-colon-out.f b/gcc/testsuite/gfortran.dg/g77/f77-edit-colon-out.f
index 4feef755f57..c4e8e7f3a35 100644
--- a/gcc/testsuite/gfortran.dg/g77/f77-edit-colon-out.f
+++ b/gcc/testsuite/gfortran.dg/g77/f77-edit-colon-out.f
@@ -4,6 +4,6 @@ C
 C Origin: David Billinghurst <David.Billinghurst@riotinto.com>
 C
 C { dg-do run }
-C { dg-output "^123(\n|\r\n|\r)45(\n|\r\n|\r)\$" }
+C { dg-output "^123(\r*\n+)45(\r*\n+)\$" }
       write(*,'((3(I1:)))')  (I,I=1,5)
       end
diff --git a/gcc/testsuite/gfortran.dg/g77/f77-edit-h-out.f b/gcc/testsuite/gfortran.dg/g77/f77-edit-h-out.f
index 78e6f017b7e..f92b39fd7d4 100644
--- a/gcc/testsuite/gfortran.dg/g77/f77-edit-h-out.f
+++ b/gcc/testsuite/gfortran.dg/g77/f77-edit-h-out.f
@@ -7,8 +7,8 @@ C { dg-do run }
 C { dg-output "^" }
  10   format(1H1)
  20   format(6H     6)
-      write(*,10)        ! { dg-output "1(\n|\r\n|\r)" }
-      write(*,20)        ! { dg-output "     6(\n|\r\n|\r)" }
-      write(*,'(16H''apostrophe'' fun)') ! { dg-output "'apostrophe' fun(\n|\r\n|\r)" }
+      write(*,10)        ! { dg-output "1(\r*\n+)" }
+      write(*,20)        ! { dg-output "     6(\r*\n+)" }
+      write(*,'(16H''apostrophe'' fun)') ! { dg-output "'apostrophe' fun(\r*\n+)" }
 C { dg-output "\$" }
       end
diff --git a/gcc/testsuite/gfortran.dg/g77/f77-edit-i-out.f b/gcc/testsuite/gfortran.dg/g77/f77-edit-i-out.f
index 9887704c716..45a900bc060 100644
--- a/gcc/testsuite/gfortran.dg/g77/f77-edit-i-out.f
+++ b/gcc/testsuite/gfortran.dg/g77/f77-edit-i-out.f
@@ -6,21 +6,21 @@ C
 C { dg-do run }
 C { dg-output "^" }
 
-      write(*,'(I1)')    1  ! { dg-output "1(\n|\r\n|\r)" }
-      write(*,'(I1)')   -1  ! { dg-output "\\*(\n|\r\n|\r)" }
-      write(*,'(I2)')    2  ! { dg-output " 2(\n|\r\n|\r)" }
-      write(*,'(I2)')   -2  ! { dg-output "-2(\n|\r\n|\r)" }
-      write(*,'(I3)')    3  ! { dg-output "  3(\n|\r\n|\r)" }
-      write(*,'(I3)')   -3  ! { dg-output " -3(\n|\r\n|\r)" }
+      write(*,'(I1)')    1  ! { dg-output "1(\r*\n+)" }
+      write(*,'(I1)')   -1  ! { dg-output "\\*(\r*\n+)" }
+      write(*,'(I2)')    2  ! { dg-output " 2(\r*\n+)" }
+      write(*,'(I2)')   -2  ! { dg-output "-2(\r*\n+)" }
+      write(*,'(I3)')    3  ! { dg-output "  3(\r*\n+)" }
+      write(*,'(I3)')   -3  ! { dg-output " -3(\r*\n+)" }
 
-      write(*,'(I2.0)')  0  ! { dg-output "  (\n|\r\n|\r)" }
-      write(*,'(I1.1)')  4  ! { dg-output "4(\n|\r\n|\r)" }
-      write(*,'(I1.1)') -4  ! { dg-output "\\*(\n|\r\n|\r)" }
-      write(*,'(I2.1)')  5  ! { dg-output " 5(\n|\r\n|\r)" }
-      write(*,'(I2.1)') -5  ! { dg-output "-5(\n|\r\n|\r)" }
-      write(*,'(I2.2)')  6  ! { dg-output "06(\n|\r\n|\r)" }
-      write(*,'(I2.2)') -6  ! { dg-output "\\*\\*(\n|\r\n|\r)" }
-      write(*,'(I3.2)')  7  ! { dg-output " 07(\n|\r\n|\r)" }
-      write(*,'(I3.2)') -7  ! { dg-output "-07(\n|\r\n|\r)" }
+      write(*,'(I2.0)')  0  ! { dg-output "  (\r*\n+)" }
+      write(*,'(I1.1)')  4  ! { dg-output "4(\r*\n+)" }
+      write(*,'(I1.1)') -4  ! { dg-output "\\*(\r*\n+)" }
+      write(*,'(I2.1)')  5  ! { dg-output " 5(\r*\n+)" }
+      write(*,'(I2.1)') -5  ! { dg-output "-5(\r*\n+)" }
+      write(*,'(I2.2)')  6  ! { dg-output "06(\r*\n+)" }
+      write(*,'(I2.2)') -6  ! { dg-output "\\*\\*(\r*\n+)" }
+      write(*,'(I3.2)')  7  ! { dg-output " 07(\r*\n+)" }
+      write(*,'(I3.2)') -7  ! { dg-output "-07(\r*\n+)" }
 
       end
diff --git a/gcc/testsuite/gfortran.dg/g77/f77-edit-s-out.f b/gcc/testsuite/gfortran.dg/g77/f77-edit-s-out.f
index 7a22ae6b814..00249e7c941 100644
--- a/gcc/testsuite/gfortran.dg/g77/f77-edit-s-out.f
+++ b/gcc/testsuite/gfortran.dg/g77/f77-edit-s-out.f
@@ -10,11 +10,11 @@ C { dg-output "^" }
  30   format(SP,I3,1X,SS,I3,S,I3)
  40   format(SP,I3)
  50   format(SP,I2)
-      write(*,10) 10, 20      ! { dg-output "\\+10  20(\n|\r\n|\r)" }
-      write(*,20) 10, 20, 30  ! { dg-output "\\+10  20\\+30(\n|\r\n|\r)" }
-      write(*,30) 10, 20, 30  ! { dg-output "\\+10  20 30(\n|\r\n|\r)" } 
-      write(*,40) 0           ! { dg-output " \\+0(\n|\r\n|\r)" }
+      write(*,10) 10, 20      ! { dg-output "\\+10  20(\r*\n+)" }
+      write(*,20) 10, 20, 30  ! { dg-output "\\+10  20\\+30(\r*\n+)" }
+      write(*,30) 10, 20, 30  ! { dg-output "\\+10  20 30(\r*\n+)" } 
+      write(*,40) 0           ! { dg-output " \\+0(\r*\n+)" }
 C 15.5.9 - Note 5: When SP editing is in effect, the plus sign is not optional
-      write(*,50) 11          ! { dg-output "\\*\\*(\n|\r\n|\r)" }
+      write(*,50) 11          ! { dg-output "\\*\\*(\r*\n+)" }
 C { dg-output "\$" }
       end
diff --git a/gcc/testsuite/gfortran.dg/g77/f77-edit-slash-out.f b/gcc/testsuite/gfortran.dg/g77/f77-edit-slash-out.f
index 6cc9a8842d6..ef8ac5e4bbe 100644
--- a/gcc/testsuite/gfortran.dg/g77/f77-edit-slash-out.f
+++ b/gcc/testsuite/gfortran.dg/g77/f77-edit-slash-out.f
@@ -4,6 +4,6 @@ C
 C Origin: David Billinghurst <David.Billinghurst@riotinto.com>
 C
 C { dg-do run }
-C { dg-output "^123(\n|\r\n|\r)45(\n|\r\n|\r)\$" }
+C { dg-output "^123(\r*\n+)45(\r*\n+)\$" }
       write(*,'(3(I1)/2(I1))')  (I,I=1,5)
       end
diff --git a/gcc/testsuite/gfortran.dg/g77/f77-edit-t-out.f b/gcc/testsuite/gfortran.dg/g77/f77-edit-t-out.f
index b47b7477603..d7209364d26 100644
--- a/gcc/testsuite/gfortran.dg/g77/f77-edit-t-out.f
+++ b/gcc/testsuite/gfortran.dg/g77/f77-edit-t-out.f
@@ -5,8 +5,8 @@ C Origin: David Billinghurst <David.Billinghurst@riotinto.com>
 C
 C { dg-do run }
 C { dg-output "^" }
-      write(*,'(I4,T8,I1)')     1234,8 ! { dg-output "1234   8(\n|\r\n|\r)" }
-      write(*,'(I4,TR3,I1)')    1234,8 ! { dg-output "1234   8(\n|\r\n|\r)" }
-      write(*,'(I4,5X,TL2,I1)') 1234,8 ! { dg-output "1234   8(\n|\r\n|\r)" }
+      write(*,'(I4,T8,I1)')     1234,8 ! { dg-output "1234   8(\r*\n+)" }
+      write(*,'(I4,TR3,I1)')    1234,8 ! { dg-output "1234   8(\r*\n+)" }
+      write(*,'(I4,5X,TL2,I1)') 1234,8 ! { dg-output "1234   8(\r*\n+)" }
 C { dg-output "\$" }
       end
diff --git a/gcc/testsuite/gfortran.dg/g77/f77-edit-x-out.f b/gcc/testsuite/gfortran.dg/g77/f77-edit-x-out.f
index 13a9d7a93e8..2096fb0ea8a 100644
--- a/gcc/testsuite/gfortran.dg/g77/f77-edit-x-out.f
+++ b/gcc/testsuite/gfortran.dg/g77/f77-edit-x-out.f
@@ -5,8 +5,8 @@ C Origin: David Billinghurst <David.Billinghurst@riotinto.com>
 C
 C { dg-do run } 
 C { dg-output "^" }
-      write(*,'(I1,1X,I1,2X,I1)') 1,2,3    ! { dg-output "1 2  3(\n|\r\n|\r)" }
+      write(*,'(I1,1X,I1,2X,I1)') 1,2,3    ! { dg-output "1 2  3(\r*\n+)" }
 C Section 13.5.3 explains why there are no trailing blanks
-      write(*,'(I1,1X,I1,2X,I1,3X)') 1,2,3 ! { dg-output "1 2  3(\n|\r\n|\r)" }
+      write(*,'(I1,1X,I1,2X,I1,3X)') 1,2,3 ! { dg-output "1 2  3(\r*\n+)" }
 C { dg-output "\$" }
       end
diff --git a/gcc/testsuite/gfortran.dg/namelist_40.f90 b/gcc/testsuite/gfortran.dg/namelist_40.f90
index 23b3e720be9..ba28d29e5b4 100644
--- a/gcc/testsuite/gfortran.dg/namelist_40.f90
+++ b/gcc/testsuite/gfortran.dg/namelist_40.f90
@@ -47,7 +47,7 @@ subroutine writenml (astring)
 end subroutine writenml
 
 end program namelist_40
-! { dg-output "Multiple sub-objects with non-zero rank in namelist object x%m%ch(\n|\r\n|\r)" }
-! { dg-output "Missing colon in substring qualifier for namelist variable x%m%ch(\n|\r\n|\r)" }
-! { dg-output "Substring out of range for namelist variable x%m%ch(\n|\r\n|\r)" }
-! { dg-output "Bad character in substring qualifier for namelist variable x%m%ch(\n|\r\n|\r)" }
+! { dg-output "Multiple sub-objects with non-zero rank in namelist object x%m%ch(\r*\n+)" }
+! { dg-output "Missing colon in substring qualifier for namelist variable x%m%ch(\r*\n+)" }
+! { dg-output "Substring out of range for namelist variable x%m%ch(\r*\n+)" }
+! { dg-output "Bad character in substring qualifier for namelist variable x%m%ch(\r*\n+)" }
diff --git a/gcc/testsuite/gfortran.dg/namelist_47.f90 b/gcc/testsuite/gfortran.dg/namelist_47.f90
index 2e9b424d659..1000aba0575 100644
--- a/gcc/testsuite/gfortran.dg/namelist_47.f90
+++ b/gcc/testsuite/gfortran.dg/namelist_47.f90
@@ -45,7 +45,7 @@ subroutine writenml (astring)
 end subroutine writenml
 
 end program namelist_47
-! { dg-output "Multiple sub-objects with non-zero rank in namelist object x%m%c012345678901234567890123456789012345678901234567890123456789h(\n|\r\n|\r)" }
-! { dg-output "Missing colon in substring qualifier for namelist variable x%m%c012345678901234567890123456789012345678901234567890123456789h(\n|\r\n|\r)" }
-! { dg-output "Substring out of range for namelist variable x%m%c012345678901234567890123456789012345678901234567890123456789h(\n|\r\n|\r)" }
-! { dg-output "Bad character in substring qualifier for namelist variable x%m%c012345678901234567890123456789012345678901234567890123456789h(\n|\r\n|\r)" }
+! { dg-output "Multiple sub-objects with non-zero rank in namelist object x%m%c012345678901234567890123456789012345678901234567890123456789h(\r*\n+)" }
+! { dg-output "Missing colon in substring qualifier for namelist variable x%m%c012345678901234567890123456789012345678901234567890123456789h(\r*\n+)" }
+! { dg-output "Substring out of range for namelist variable x%m%c012345678901234567890123456789012345678901234567890123456789h(\r*\n+)" }
+! { dg-output "Bad character in substring qualifier for namelist variable x%m%c012345678901234567890123456789012345678901234567890123456789h(\r*\n+)" }
diff --git a/gcc/testsuite/gfortran.dg/namelist_print_1.f b/gcc/testsuite/gfortran.dg/namelist_print_1.f
index d97d1c9e9a4..147ae50bef3 100644
--- a/gcc/testsuite/gfortran.dg/namelist_print_1.f
+++ b/gcc/testsuite/gfortran.dg/namelist_print_1.f
@@ -9,5 +9,5 @@
       namelist /mynml/ x
       x = 1
 ! { dg-output "^" }
-      print mynml ! { dg-output "&MYNML(\n|\r\n|\r) X=  1.00000000    ,(\n|\r\n|\r) /(\n|\r\n|\r)" }
+      print mynml ! { dg-output "&MYNML(\r*\n+) X=  1.00000000    ,(\r*\n+) /(\r*\n+)" }
       end
diff --git a/gcc/testsuite/gfortran.dg/parameter_array_dummy.f90 b/gcc/testsuite/gfortran.dg/parameter_array_dummy.f90
index d9a43432fd5..057beaa7cc2 100644
--- a/gcc/testsuite/gfortran.dg/parameter_array_dummy.f90
+++ b/gcc/testsuite/gfortran.dg/parameter_array_dummy.f90
@@ -14,8 +14,8 @@ contains
     write (*,*) i, "a" // letters(ivec)
   end subroutine concat
 end program foo_mod
-! { dg-output " *1 aa(\n|\r\n|\r)" }
-! { dg-output " *2 ab(\n|\r\n|\r)" }
-! { dg-output " *3 aaab(\n|\r\n|\r)" }
-! { dg-output " *4 abaa(\n|\r\n|\r)" }
-! { dg-output " *5 ababab(\n|\r\n|\r)" }
+! { dg-output " *1 aa(\r*\n+)" }
+! { dg-output " *2 ab(\r*\n+)" }
+! { dg-output " *3 aaab(\r*\n+)" }
+! { dg-output " *4 abaa(\r*\n+)" }
+! { dg-output " *5 ababab(\r*\n+)" }

^ permalink raw reply	[flat|nested] only message in thread

only message in thread, other threads:[~2023-01-28  2:27 UTC | newest]

Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2023-01-28  2:27 [gcc r13-5465] Fortran tests: Revise line end tests allowing windows testing Jerry DeLisle

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).