diff mbox

[4/2] S/390 test case fixes.

Message ID 20160114114945.GA32428@linux.vnet.ibm.com
State New
Headers show

Commit Message

Dominik Vogt Jan. 14, 2016, 11:49 a.m. UTC 
On Mon, Jan 11, 2016 at 11:46:21AM +0100, Dominik Vogt wrote:
> The following two patches fix some test cases for S/390.

Patch 4:

  Adapt the test pattern in bind_c_array_params_2.f90 to S/390
  assemply output.

Ciao

Dominik ^_^  ^_^

Comments

Andreas Krebbel Jan. 15, 2016, 2 p.m. UTC | #1 
> gcc/testsuite/ChangeLog
> 
> 	* gfortran.dg/bind_c_array_params_2.f90: Fix test patterns for S/390.

Applied.  Thanks!

-Andreas-
diff mbox

Patch

From 0c9eb783da06a97de97e73a8ed8c7b345510e0cc Mon Sep 17 00:00:00 2001
From: Dominik Vogt <vogt@linux.vnet.ibm.com>
Date: Mon, 11 Jan 2016 16:14:00 +0100
Subject: [PATCH] S/390: Fix test pattern in
 gfortran.dg/bind_c_array_params_2.f90.

---
 gcc/testsuite/gfortran.dg/bind_c_array_params_2.f90 | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/gcc/testsuite/gfortran.dg/bind_c_array_params_2.f90 b/gcc/testsuite/gfortran.dg/bind_c_array_params_2.f90
index c8eb50d..e749958 100644
--- a/gcc/testsuite/gfortran.dg/bind_c_array_params_2.f90
+++ b/gcc/testsuite/gfortran.dg/bind_c_array_params_2.f90
@@ -16,6 +16,7 @@  integer :: aa(4,4)
 call test(aa)
 end
 
-! { dg-final { scan-assembler-times "\[ \t\]\[$,_0-9\]*myBindC" 1 { target { ! { hppa*-*-* } } } } }
+! { dg-final { scan-assembler-times "\[ \t\]\[$,_0-9\]*myBindC" 1 { target { ! { hppa*-*-* s390*-*-* } } } } }
 ! { dg-final { scan-assembler-times "myBindC,%r2" 1 { target { hppa*-*-* } } } }
+! { dg-final { scan-assembler-times "brasl\t%r\[0-9\]*,myBindC" 1 { target { s390*-*-* } } } }
 ! { dg-final { scan-tree-dump-times "test \\\(&parm\\." 1 "original" } }
-- 
2.3.0