[Patch, testsuite] PR61453 gfortran.dg/bind_c_array_params_2.f90 for targets where a call insn isn't "call"

[John David Anglin]

On 5-Jul-14, at 11:56 AM, Dominique Dhumieres wrote:

> Is the following patch OK for trunk?
>
> 2014-07-05  Dominique d'Humieres <dominiq@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.anglin@bell.net