Patchwork [testsuite] : Fix gfortran.dg/bind_c_array_params_2.f90 scan failure on alpha

login
register
mail settings
Submitter Uros Bizjak
Date July 27, 2012, 11:53 a.m.
Message ID <CAFULd4b7HH21LqPJ0Eid+UFf5zs90PQWATQ0qLbDucVTicsuoQ@mail.gmail.com>
Download mbox | patch
Permalink /patch/173648/
State New
Headers show

Comments

Uros Bizjak - July 27, 2012, 11:53 a.m.
Hello!

Without -mno-explicit-relocs, alpha generates:

        ldq $27,myBindC($29)            !literal!6
        jsr $26,($27),myBindC           !lituse_jsr!6

which confuses scan-assembler-times "..." 1.

Also, added appropriate cleanup-tree-dump while there.

Tested on alphaev68-pc-linux-gnu, committed to mainline SVN.

Uros.
Paul Richard Thomas - July 27, 2012, 2:52 p.m.
Dear Uros,

It looks good an clear to me!

Thanks for the patch and, in particular, for adding the cleanup line.

Paul

On 27 July 2012 13:53, Uros Bizjak <ubizjak@gmail.com> wrote:
> Hello!
>
> Without -mno-explicit-relocs, alpha generates:
>
>         ldq $27,myBindC($29)            !literal!6
>         jsr $26,($27),myBindC           !lituse_jsr!6
>
> which confuses scan-assembler-times "..." 1.
>
> Also, added appropriate cleanup-tree-dump while there.
>
> Tested on alphaev68-pc-linux-gnu, committed to mainline SVN.
>
> Uros.

Patch

Index: bind_c_array_params_2.f90
===================================================================
--- bind_c_array_params_2.f90	(revision 189904)
+++ bind_c_array_params_2.f90	(working copy)
@@ -1,5 +1,6 @@ 
 ! { dg-do compile }
 ! { dg-options "-std=f2008ts -fdump-tree-original" }
+! { dg-additional-options "-mno-explicit-relocs" { target alpha*-*-* } }
 !
 ! Check that assumed-shape variables are correctly passed to BIND(C)
 ! as defined in TS 29913
@@ -14,6 +15,6 @@ 
 call test(aa)
 end
 
+! { dg-final { scan-assembler-times "myBindC" 1 } }
 ! { dg-final { scan-tree-dump-times "test \\\(&parm\\." 1 "original" } }
-! { dg-final { scan-assembler-times "myBindC" 1 } }
-
+! { dg-final { cleanup-tree-dump "original" } }