From patchwork Sat Jan 21 02:13:16 2023 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Jerry DeLisle X-Patchwork-Id: 46755 Return-Path: Delivered-To: ouuuleilei@gmail.com Received: by 2002:adf:eb09:0:0:0:0:0 with SMTP id s9csp532067wrn; Fri, 20 Jan 2023 18:14:34 -0800 (PST) X-Google-Smtp-Source: AMrXdXvWPklPgLH+6GXaKkHDbrgddcGEeEhtUUXnsac7l9aTKpYEbJTpNT+4nzzaJ4bnj23WeuRR X-Received: by 2002:aa7:c842:0:b0:491:3a5c:6e2 with SMTP id g2-20020aa7c842000000b004913a5c06e2mr16351580edt.5.1674267273998; Fri, 20 Jan 2023 18:14:33 -0800 (PST) ARC-Seal: i=1; a=rsa-sha256; t=1674267273; cv=none; d=google.com; s=arc-20160816; b=ZXd8vnpITTFYpz2BnA3SBC+b4wHSMJKxWtG3IyoZQplILN7ZW5+qzrSa07rLptjyyo L6jZ4GhEfNcRpk9/dWw21JFFKLR74J1I/x28eCTY51Bprm74DIuIS6tkPeHvhVHoYIzH lcv93g4DHCRFBdbHSTN682vWzobcwZpcoo8fg5C8rXEBap1Qcos72x0Y83R/zWHeQjj5 K3tuyQYnZQTBXeCA5usnUPu2+w+FezGL7ZqugYPdzYPwKLZTK5NnIMP1kPZA9/vWo8nN rMj0G2TzCR5oL1Sb1yr8aiyjfh/bZwADUF1t2L6KxwfFBB2A30622d3at21Q5VPG46qP U11A== ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=google.com; s=arc-20160816; h=sender:errors-to:reply-to:from:list-subscribe:list-help:list-post :list-archive:list-unsubscribe:list-id:precedence:mime-version :feedback-id:message-id:subject:cc:to:date:dmarc-filter:delivered-to :dkim-signature:dkim-filter; bh=eqFYolRLW5pdXlljBd5RC6eb4pmM/JDH66ySWsHU+mI=; b=BnQpVQs+HXouDItJX0BFZ10D6q3ZAi2I+0OfQRPt7kQ0+qwRc8zLuiCqXWoFTb4Bza dxfUV4l9A39k6Qw+4R1AN3ZGt49XLvIakMVsAs76iHJIWdLqymHt8OAzOO8sRvR7dRLW PsHv2CafgC5IIDGz/qmQKBy6Jt5PB/MLCd9mb0NaXt5XVKtcSRZ41+xPBqBwjQ5ycDCG JxC43cSwL2RwS/bncBtEj7QJUs5sXJg3zokuPzQnMoYdS0r+5bQRZ0GHAxJLusvLjm+f xRcSTYhjwE48TXd27sAfQCOfycmppVBn4oZATRfgN5nYFKktJ7C4cdq/XnXRZ63NsYS0 5PKw== ARC-Authentication-Results: i=1; mx.google.com; dkim=pass header.i=@gcc.gnu.org header.s=default header.b=yUXkbUru; spf=pass (google.com: domain of gcc-patches-bounces+ouuuleilei=gmail.com@gcc.gnu.org designates 8.43.85.97 as permitted sender) smtp.mailfrom="gcc-patches-bounces+ouuuleilei=gmail.com@gcc.gnu.org"; dmarc=pass (p=NONE sp=NONE dis=NONE) header.from=gnu.org Received: from sourceware.org (server2.sourceware.org. [8.43.85.97]) by mx.google.com with ESMTPS id i27-20020a50871b000000b0046b2327bf88si42676799edb.76.2023.01.20.18.14.33 for (version=TLS1_3 cipher=TLS_AES_256_GCM_SHA384 bits=256/256); Fri, 20 Jan 2023 18:14:33 -0800 (PST) Received-SPF: pass (google.com: domain of gcc-patches-bounces+ouuuleilei=gmail.com@gcc.gnu.org designates 8.43.85.97 as permitted sender) client-ip=8.43.85.97; Authentication-Results: mx.google.com; dkim=pass header.i=@gcc.gnu.org header.s=default header.b=yUXkbUru; spf=pass (google.com: domain of gcc-patches-bounces+ouuuleilei=gmail.com@gcc.gnu.org designates 8.43.85.97 as permitted sender) smtp.mailfrom="gcc-patches-bounces+ouuuleilei=gmail.com@gcc.gnu.org"; dmarc=pass (p=NONE sp=NONE dis=NONE) header.from=gnu.org Received: from server2.sourceware.org (localhost [IPv6:::1]) by sourceware.org (Postfix) with ESMTP id 77A3A3857803 for ; Sat, 21 Jan 2023 02:14:19 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 77A3A3857803 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gcc.gnu.org; s=default; t=1674267259; bh=eqFYolRLW5pdXlljBd5RC6eb4pmM/JDH66ySWsHU+mI=; h=Date:To:Cc:Subject:List-Id:List-Unsubscribe:List-Archive: List-Post:List-Help:List-Subscribe:From:Reply-To:From; b=yUXkbUrud6TcQLlHcRDXRdJSX+KEaBklXHekDy5WE3wMLcA1YSIs69oKgYkRNaJ5t aqPrn3DlzdgMiGrK/o4SqWjcJBuKHFnjnnzmqBYNKMaOxZTOJxDNdU8DUVlmpq7DXi 1um+gQqhE7hN75o7+hPoMCq2zw/f+oiUbNkKa03o= X-Original-To: gcc-patches@gcc.gnu.org Delivered-To: gcc-patches@gcc.gnu.org Received: from mail-40131.protonmail.ch (mail-40131.protonmail.ch [185.70.40.131]) by sourceware.org (Postfix) with ESMTPS id 723E23858D20 for ; Sat, 21 Jan 2023 02:13:25 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.4.2 sourceware.org 723E23858D20 Date: Sat, 21 Jan 2023 02:13:16 +0000 To: gfortran Cc: gcc-patches Subject: [patch, gfortran.dg] Adjust numerous tests so that they pass on line endings Message-ID: <1f4144a4-5920-4286-5ad6-f4587498c8eb@protonmail.com> Feedback-ID: 34907122:user:proton MIME-Version: 1.0 X-Spam-Status: No, score=-9.7 required=5.0 tests=BAYES_00, DKIM_SIGNED, DKIM_VALID, DKIM_VALID_AU, DKIM_VALID_EF, FREEMAIL_FROM, GIT_PATCH_0, RCVD_IN_MSPIKE_H2, SPF_HELO_PASS, SPF_PASS, TXREP autolearn=ham autolearn_force=no version=3.4.6 X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on server2.sourceware.org X-BeenThere: gcc-patches@gcc.gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: Gcc-patches mailing list List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-Patchwork-Original-From: Jerry DeLisle via Gcc-patches From: Jerry DeLisle Reply-To: Jerry DeLisle Errors-To: gcc-patches-bounces+ouuuleilei=gmail.com@gcc.gnu.org Sender: "Gcc-patches" X-getmail-retrieved-from-mailbox: =?utf-8?q?INBOX?= X-GMAIL-THRID: =?utf-8?q?1755596480965506105?= X-GMAIL-MSGID: =?utf-8?q?1755596480965506105?= 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 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 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 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 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 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+)" }