On 5-Jul-14, at 11:56 AM, Dominique Dhumieres wrote:
Is the following patch OK for trunk?
2014-07-05 Dominique d'Humieres <domi...@lps.ens.fr>
PR testsuite/61453
* gfortran.dg/gfortran.dg/bind_c_array_params_2.f90:
Adjust regexp for more targets.
--- ../_clean/gcc/testsuite/gfortran.dg/bind_c_array_params_2.f90
2014-05-24 16:17:53.000000000 +0200
+++ gcc/testsuite/gfortran.dg/bind_c_array_params_2.f90 2014-05-29
11:34:40.000000000 +0200
@@ -16,7 +16,7 @@ integer :: aa(4,4)
call test(aa)
end
-! { dg-final { scan-assembler-times "call\[^\n\r\]*myBindC" 1
{ target { ! { hppa*-*-hpux* } } } } }
-! { dg-final { scan-assembler-times "call\[^\n\r\]*myBindC,%r2" 1
{ target { hppa*-*-hpux* } } } }
+! { dg-final { scan-assembler-times "\[ \t\]\[$,_0-9\]*myBindC" 1
{ target { ! { hppa*-*-hpux* } } } } }
+! { dg-final { scan-assembler-times "\[ \t\]\[$,_0-9\]*myBindC,%r2"
1 { target { hppa*-*-hpux* } } } }
"myBindC,%r2" will work on hppa*-*-*. I don't believe preceding stuff
is needed on hppa.
Dave
--
John David Anglin dave.ang...@bell.net
