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 --git a/gcc/testsuite/gfortran.dg/ISO_Fortran_binding_17.f90 b/gcc/testsuite/gfortran.dg/ISO_Fortran_binding_17.f90
index 5902334..c399e71 100644 (file)
--- 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 86e0a45..756e008 100644 (file)
--- 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 77dd3a2..975f74b 100644 (file)
--- 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 ab59b0b..a58ba20 100644 (file)
--- 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 3eb2732..d1af9f7 100644 (file)
--- 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 2310573..6c44f10 100644 (file)
--- 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 18de68e..1076baf 100644 (file)
--- 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 3ff1833..ff3d28e 100644 (file)
--- 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 ffefa0d..5ca313f 100644 (file)
--- 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 7c0f524..6aee861 100644 (file)
--- 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 459bca4..b522698 100644 (file)
--- 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 aa51bc0..3a5c10b 100644 (file)
--- 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 4feef75..c4e8e7f 100644 (file)
--- 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 78e6f01..f92b39f 100644 (file)
--- 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 9887704..45a900b 100644 (file)
--- 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 7a22ae6..00249e7 100644 (file)
--- 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 6cc9a88..ef8ac5e 100644 (file)
--- 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 b47b747..d720936 100644 (file)
--- 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 13a9d7a..2096fb0 100644 (file)
--- 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 23b3e72..ba28d29 100644 (file)
--- 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 2e9b424..1000aba 100644 (file)
--- 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 d97d1c9..147ae50 100644 (file)
--- 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 d9a4343..057beaa 100644 (file)
--- 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+)" }