Re: [PATCH 4/2] S/390 test case fixes.

[Dominik Vogt <vogt at linux dot vnet dot ibm dot com>]

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 ^_^  ^_^

-- 

Dominik Vogt
IBM Germany

Attachment: 0001-ChangeLog
Description: Text document

>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