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.ang...@bell.net
