On Mon, Sep 24, 2018 at 7:48 PM Kyrill Tkachov <kyrylo.tkac...@foss.arm.com> wrote:
> Hi all, > > On 24/09/18 14:54, Andreas Schwab wrote: > > On Sep 22 2018, Janne Blomqvist <blomqvist.ja...@gmail.com> wrote: > > > > > +! { dg-final { scan-tree-dump-times "_gfortran_caf_lock > \\(four.token, .*\\(1 - four.dim\\\[0\\\].lbound\\), > \\(integer\\(kind=4\\)\\) \\(7 - four.dim\\\[1\\\].lbound\\), > &acquired.\[0-9\]+, &ii, 0B, 0\\);|_gfortran_caf_lock \\(four.token, 1 - > four.dim\\\[0\\\].lbound, 7 - four.dim\\\[1\\\].lbound, &acquired.\[0-9\]+, > &ii, 0B, 0\\);" 1 "original" } } > > > +! { dg-final { scan-tree-dump-times "_gfortran_caf_unlock > \\(four.token, .*\\(2 - four.dim\\\[0\\\].lbound\\), > \\(integer\\(kind=4\\)\\) \\(8 - four.dim\\\[1\\\].lbound\\), 0B, 0B, > 0\\);|_gfortran_caf_unlock \\(four.token, 2 - four.dim\\\[0\\\].lbound, 8 - > four.dim\\\[1\\\].lbound, 0B, 0B, 0\\);" 1 "original" } } > > > > This is wrong for ILP32. > > > > To be more concrete, this FAILs on arm-none-linux-gnueabihf: > > FAIL: gfortran.dg/coarray_lock_7.f90 -O scan-tree-dump-times original > "_gfortran_caf_lock \\(four.token, .*\\(1 - four.dim\\[0\\].lbound\\), > \\(integer\\(kind=4\\)\\) \\(7 - four.dim\\[1\\].lbound\\), > &acquired.[0-9]+, &ii, 0B, 0\\);|_gfortran_caf_lock \\(four.token, 1 - > four.dim\\[0\\].lbound, 7 - four.dim\\[1\\].lbound, &acquired.[0-9]+, &ii, > 0B, 0\\);" 1 > FAIL: gfortran.dg/coarray_lock_7.f90 -O scan-tree-dump-times original > "_gfortran_caf_unlock \\(four.token, .*\\(2 - four.dim\\[0\\].lbound\\), > \\(integer\\(kind=4\\)\\) \\(8 - four.dim\\[1\\].lbound\\), 0B, 0B, > 0\\);|_gfortran_caf_unlock \\(four.token, 2 - four.dim\\[0\\].lbound, 8 - > four.dim\\[1\\].lbound, 0B, 0B, 0\\);" 1 > > > Thanks, > Kyrill > Ugh. My 32-bit tree is in a bit of a disarray at the moment (my lxd container setup didn't survive the upgrade to ubuntu 18.04), can somebody send me the .original tree dump? -- Janne Blomqvist