| 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
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" } }
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.