Message ID | 20140707161320.5C56B105@mailhost.lps.ens.fr |
---|---|
State | New |
Headers | show |
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
--- ../_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" } }