Re: [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/7/2014 12:13 PM, Dominique Dhumieres wrote:

Does this mean that the following patch will succeed on hppa*-*-*
without/with -flto?

--- ../_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 
12:44:54.000000000 +0200
@@ -16,7 +16,6 @@ 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 } }
  ! { dg-final { scan-tree-dump-times "test \\\(&parm\\." 1 "original" } }
  ! { dg-final { cleanup-tree-dump "original" } }

I just checked.  It doesn't work on hppa64-hp-hpux11.11 due to following
statement:

        .type   myBindC, @function

So, we still need hppa specific version .

Dave

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