diff mbox series

[gfortran.dg] Adjust numerous tests so that they pass on line endings

Message ID 1f4144a4-5920-4286-5ad6-f4587498c8eb@protonmail.com
State Accepted
Headers
Series [gfortran.dg] Adjust numerous tests so that they pass on line endings |

Checks

Context Check Description
snail/gcc-patch-check success Github commit url

Commit Message

Jerry DeLisle Jan. 21, 2023, 2:13 a.m. UTC 
  Hi all,

The attached patch modifies the following tests to check for line
endings.  Some test environments inject superfluous /r characters at
ends of lines. The expression matching in dg-output tests are changed from:

(\n|\r\n|\r)

to

(\r*\n+)

This allows these tests to pass. The failing tests tend to mask the real
bugs in these systems.

The changes were provided by Nightstrike who has tested on the
troublesome environment. I ran the tests successfully on Linux. I do not
know if anyone has tested on Mac or some of the other system that use
odd line endings.

OK for trunk?  What about for 12?

Regards,

Jerry

modified:   gcc/testsuite/gfortran.dg/ISO_Fortran_binding_17.f90
modified:   gcc/testsuite/gfortran.dg/array_temporaries_2.f90
modified:   gcc/testsuite/gfortran.dg/bind-c-contiguous-1.f90
modified:   gcc/testsuite/gfortran.dg/bind-c-contiguous-4.f90
modified:   gcc/testsuite/gfortran.dg/bind-c-contiguous-5.f90
modified:   gcc/testsuite/gfortran.dg/fmt_error_4.f90
modified:   gcc/testsuite/gfortran.dg/fmt_error_5.f90
modified:   gcc/testsuite/gfortran.dg/fmt_float.f90
modified:   gcc/testsuite/gfortran.dg/fmt_l.f90
modified:   gcc/testsuite/gfortran.dg/fmt_nonchar_2.f90
modified:   gcc/testsuite/gfortran.dg/fmt_zero_precision.f90
modified:   gcc/testsuite/gfortran.dg/g77/f77-edit-apostrophe-out.f
modified:   gcc/testsuite/gfortran.dg/g77/f77-edit-colon-out.f
modified:   gcc/testsuite/gfortran.dg/g77/f77-edit-h-out.f
modified:   gcc/testsuite/gfortran.dg/g77/f77-edit-i-out.f
modified:   gcc/testsuite/gfortran.dg/g77/f77-edit-s-out.f
modified:   gcc/testsuite/gfortran.dg/g77/f77-edit-slash-out.f
modified:   gcc/testsuite/gfortran.dg/g77/f77-edit-t-out.f
modified:   gcc/testsuite/gfortran.dg/g77/f77-edit-x-out.f
modified:   gcc/testsuite/gfortran.dg/namelist_40.f90
modified:   gcc/testsuite/gfortran.dg/namelist_47.f90
modified:   gcc/testsuite/gfortran.dg/namelist_print_1.f
modified:   gcc/testsuite/gfortran.dg/parameter_array_dummy.f90

Comments

Jerry D Jan. 21, 2023, 11:59 p.m. UTC | #1 
On 1/20/23 6:13 PM, Jerry DeLisle via Fortran wrote:
> Hi all,
> 
> The attached patch modifies the following tests to check for line
> endings.  Some test environments inject superfluous /r characters at
> ends of lines. The expression matching in dg-output tests are changed from:
> 
> (\n|\r\n|\r)
> 
> to
> 
> (\r*\n+)
> 
> This allows these tests to pass. The failing tests tend to mask the real
> bugs in these systems.
> 
> The changes were provided by Nightstrike who has tested on the
> troublesome environment. I ran the tests successfully on Linux. I do not
> know if anyone has tested on Mac or some of the other system that use
> odd line endings.
> 
> OK for trunk?  What about for 12?
> 
> Regards,
> 
> Jerry
> 
> modified:   gcc/testsuite/gfortran.dg/ISO_Fortran_binding_17.f90
> modified:   gcc/testsuite/gfortran.dg/array_temporaries_2.f90
> modified:   gcc/testsuite/gfortran.dg/bind-c-contiguous-1.f90
> modified:   gcc/testsuite/gfortran.dg/bind-c-contiguous-4.f90
> modified:   gcc/testsuite/gfortran.dg/bind-c-contiguous-5.f90
> modified:   gcc/testsuite/gfortran.dg/fmt_error_4.f90
> modified:   gcc/testsuite/gfortran.dg/fmt_error_5.f90
> modified:   gcc/testsuite/gfortran.dg/fmt_float.f90
> modified:   gcc/testsuite/gfortran.dg/fmt_l.f90
> modified:   gcc/testsuite/gfortran.dg/fmt_nonchar_2.f90
> modified:   gcc/testsuite/gfortran.dg/fmt_zero_precision.f90
> modified:   gcc/testsuite/gfortran.dg/g77/f77-edit-apostrophe-out.f
> modified:   gcc/testsuite/gfortran.dg/g77/f77-edit-colon-out.f
> modified:   gcc/testsuite/gfortran.dg/g77/f77-edit-h-out.f
> modified:   gcc/testsuite/gfortran.dg/g77/f77-edit-i-out.f
> modified:   gcc/testsuite/gfortran.dg/g77/f77-edit-s-out.f
> modified:   gcc/testsuite/gfortran.dg/g77/f77-edit-slash-out.f
> modified:   gcc/testsuite/gfortran.dg/g77/f77-edit-t-out.f
> modified:   gcc/testsuite/gfortran.dg/g77/f77-edit-x-out.f
> modified:   gcc/testsuite/gfortran.dg/namelist_40.f90
> modified:   gcc/testsuite/gfortran.dg/namelist_47.f90
> modified:   gcc/testsuite/gfortran.dg/namelist_print_1.f
> modified:   gcc/testsuite/gfortran.dg/parameter_array_dummy.f90

Proposed ChangeLog entry using git gcc-commit-mklog:

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

     Revise the line end tests to pass on certain windows test environments
     which inject spurious /r characters. Adjust (\n|\r\n|\r) to (\r*\n+).

     gcc/testsuite/ChangeLog:

             * gfortran.dg/ISO_Fortran_binding_17.f90: As noted above.
             * gfortran.dg/array_temporaries_2.f90: As noted above.
             * gfortran.dg/bind-c-contiguous-1.f90: As noted above.
             * gfortran.dg/bind-c-contiguous-4.f90: As noted above.
             * gfortran.dg/bind-c-contiguous-5.f90: As noted above.
             * gfortran.dg/fmt_error_4.f90: As noted above.
             * gfortran.dg/fmt_error_5.f90: As noted above.
             * gfortran.dg/fmt_float.f90: As noted above.
             * gfortran.dg/fmt_l.f90: As noted above.
             * gfortran.dg/fmt_nonchar_2.f90: As noted above.
             * gfortran.dg/fmt_zero_precision.f90: As noted above.
             * gfortran.dg/g77/f77-edit-apostrophe-out.f: As noted above.
             * gfortran.dg/g77/f77-edit-colon-out.f: As noted above.
             * gfortran.dg/g77/f77-edit-h-out.f: As noted above.
             * gfortran.dg/g77/f77-edit-i-out.f: As noted above.
             * gfortran.dg/g77/f77-edit-s-out.f: As noted above.
             * gfortran.dg/g77/f77-edit-slash-out.f: As noted above.
             * gfortran.dg/g77/f77-edit-t-out.f: As noted above.
             * gfortran.dg/g77/f77-edit-x-out.f: As noted above.
             * gfortran.dg/namelist_40.f90: As noted above.
             * gfortran.dg/namelist_47.f90: As noted above.
             * gfortran.dg/namelist_print_1.f: As noted above.
             * gfortran.dg/parameter_array_dummy.f90: As noted above.
NightStrike Jan. 22, 2023, 5:28 a.m. UTC | #2 
On Sat, Jan 21, 2023, 18:59 Jerry D via Fortran <fortran@gcc.gnu.org> wrote:

>
> Proposed ChangeLog entry using git gcc-commit-mklog:
>
> Author: Jerry DeLisle <jvdelisle@gcc.gnu.org>
> Date:   Sat Jan 21 15:47:19 2023 -0800
>
>      Revise the line end tests to pass on certain windows test environments
>      which inject spurious /r characters. Adjust (\n|\r\n|\r) to (\r*\n+).
>

Just to be clear, all simulators inject the spurious r's. I replicated the
problem on Linux.
Mikael Morin Jan. 22, 2023, 1:38 p.m. UTC | #3 
Hello,

Le 22/01/2023 à 00:59, Jerry D via Fortran a écrit :
(...)
> 
> Proposed ChangeLog entry using git gcc-commit-mklog:
> 
> Author: Jerry DeLisle <jvdelisle@gcc.gnu.org>
> Date:   Sat Jan 21 15:47:19 2023 -0800
> 
>      Revise the line end tests to pass on certain windows test environments
>      which inject spurious /r characters. Adjust (\n|\r\n|\r) to (\r*\n+).
> 
>      gcc/testsuite/ChangeLog:
> 
>              * gfortran.dg/ISO_Fortran_binding_17.f90: As noted above.
(...)This part will be integrated in the ChangeLog file, without the 
preceding text.  Don't start with "As noted above", as there will be no 
"above" to refer to.

Cheers
Jerry D Jan. 22, 2023, 4:06 p.m. UTC | #4 
On 1/22/23 5:38 AM, Mikael Morin wrote:
> Hello,
> 
> Le 22/01/2023 à 00:59, Jerry D via Fortran a écrit :
> (...)
>>
>> Proposed ChangeLog entry using git gcc-commit-mklog:
>>
>> Author: Jerry DeLisle <jvdelisle@gcc.gnu.org>
>> Date:   Sat Jan 21 15:47:19 2023 -0800
>>
>>      Revise the line end tests to pass on certain windows test 
>> environments
>>      which inject spurious /r characters. Adjust (\n|\r\n|\r) to 
>> (\r*\n+).
>>
>>      gcc/testsuite/ChangeLog:
>>
>>              * gfortran.dg/ISO_Fortran_binding_17.f90: As noted above.
> (...)This part will be integrated in the ChangeLog file, without the 
> preceding text.  Don't start with "As noted above", as there will be no 
> "above" to refer to.

Thank you, relearning how these things work with the automation scripts.

Jerry
Jerry D Jan. 28, 2023, 2:47 a.m. UTC | #5 
Committed:

It is not apparent to me that the testsuite/ChangeLog was updated. Maybe 
there is a time delay on that?

Please be patient with me as I figure out how all this works.

ommit f963705752e9d0b79a340788166269af417e344e (HEAD -> master, 
origin/master, origin/HEAD)
Author: Jerry DeLisle <jvdelisle@gcc.gnu.org>
Date:   Sat Jan 21 15:47:19 2023 -0800

     Fortran tests: Revise line end tests allowing windows testing.

     gcc/testsuite/ChangeLog:

             * gfortran.dg/ISO_Fortran_binding_17.f90: Replace (\n|\r\n|\r)
             with (\r*\n+).
             * gfortran.dg/array_temporaries_2.f90: Likewise.
             * gfortran.dg/bind-c-contiguous-1.f90: Likewise.
             * gfortran.dg/bind-c-contiguous-4.f90: Likewise.
             * gfortran.dg/bind-c-contiguous-5.f90: Likewise.
             * gfortran.dg/fmt_error_4.f90: Likewise.
             * gfortran.dg/fmt_error_5.f90: Likewise.
             * gfortran.dg/fmt_float.f90: Likewise.
             * gfortran.dg/fmt_l.f90: Likewise.
             * gfortran.dg/fmt_nonchar_2.f90: Likewise.
             * gfortran.dg/fmt_zero_precision.f90: Likewise.
             * gfortran.dg/g77/f77-edit-apostrophe-out.f: Likewise.
             * gfortran.dg/g77/f77-edit-colon-out.f: Likewise.
             * gfortran.dg/g77/f77-edit-h-out.f: Likewise.
             * gfortran.dg/g77/f77-edit-i-out.f: Likewise.
             * gfortran.dg/g77/f77-edit-s-out.f: Likewise.
             * gfortran.dg/g77/f77-edit-slash-out.f: Likewise.
             * gfortran.dg/g77/f77-edit-t-out.f: Likewise.
             * gfortran.dg/g77/f77-edit-x-out.f: Likewise.
             * gfortran.dg/namelist_40.f90: Likewise.
             * gfortran.dg/namelist_47.f90: Likewise.
             * gfortran.dg/namelist_print_1.f: Likewise.
             * gfortran.dg/parameter_array_dummy.f90: Likewise.
Mikael Morin Jan. 28, 2023, 4:44 p.m. UTC | #6 
Le 28/01/2023 à 03:47, Jerry D a écrit :
> 
> It is not apparent to me that the testsuite/ChangeLog was updated. Maybe 
> there is a time delay on that?
> 
Yes, it's done daily as part of the "daily bump" commit.
You can see it in the git log:

$ git log -- gcc/testsuite/ChangeLog
commit f457a62e63a86d5e5342eda16538a26355199856
Author: GCC Administrator <gccadmin@gcc.gnu.org>
Date:   Tue Jan 17 00:18:06 2023 +0000

     Daily bump.

commit 5013c3bb3ead9c27adb90152115ca1d606cbf2dc
Author: GCC Administrator <gccadmin@gcc.gnu.org>
Date:   Sun Jan 15 00:17:49 2023 +0000

     Daily bump.

commit ecd637e9761485437498f311ddf09af5286d6d0f
Author: GCC Administrator <gccadmin@gcc.gnu.org>
Date:   Fri Jan 13 00:17:18 2023 +0000

     Daily bump.
diff mbox series

Patch

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