From cbb0e83b5a6357d434844d09302970d39e97310d Mon Sep 17 00:00:00 2001 From: Dominik Vogt Date: Fri, 15 Jan 2016 13:59:18 +0000 Subject: [PATCH] S/390: bind_c_array_params_2: Add proper call expr regexp for S/390. gcc/testsuite/ChangeLog * gfortran.dg/bind_c_array_params_2.f90: Fix test patterns for S/390. From-SVN: r232425 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/bind_c_array_params_2.f90 | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index da2dfb0dcbbb..fb098b56763a 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2016-01-15 Dominik Vogt + + * gfortran.dg/bind_c_array_params_2.f90: Fix test patterns for + S/390. + 2016-01-15 Dominik Vogt PR c++/56194 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 c8eb50d621f4..e749958d8b54 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" } }