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

[John David Anglin]

I would change hppa*-*-hpux* to hppa*-*-*.  That's what I tested on  
hppa-linux.

I guess if "\[ \t\]_*myBindC" worked on hppa*-*-linux*, then it would  
probably work
on hpux and the target condition could be removed.  The reason hpux  
needed
special treatment originally is for every function call to an external  
symbol, there
is an .import directive containing the symbol name.

Dave

On 6-Jul-14, at 5:22 AM, Dominique Dhumieres wrote:

>> On hppa, the ",%r2" uniquely identifies the call.  The test passes
>> with -flto.
>
> Then is the following patch OK for hppa*-*-*?
>
> +++ gcc/testsuite/gfortran.dg/bind_c_array_params_2.f90	2014-07-05  
> 22:20:49.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\]_*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" } }
>
> Dominique
>

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