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(-)
@@ -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
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 ^_^ ^_^