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

[John David Anglin]

On 7/8/2014 11:36 AM, Dominique Dhumieres wrote:
> So can we settle for
>
> --- ../_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-07-07 19:15:47.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 "myBindC,%r2" 1 { target { hppa*-*-hpux* } } } }
>   ! { dg-final { scan-tree-dump-times "test \\\(&parm\\." 1 "original" } }
>   ! { dg-final { cleanup-tree-dump "original" } }
As mentioned before, I would prefer that you change "hppa*-*-hpux*" to 
"hppa*-*-*".

Dave

-- 
John David Anglin    dave.anglin@bell.net