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
gcc/testsuite/ChangeLog
* gfortran.dg/bind_c_array_params_2.f90: Fix test patterns for S/390.
>From 0c9eb783da06a97de97e73a8ed8c7b345510e0cc Mon Sep 17 00:00:00 2001
From: Dominik Vogt <[email protected]>
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
