Hi!

On 2021-09-27T14:07:53+0200, Tobias Burnus <tobias@codesourcery.com> wrote:
> now committed r12-3897-g00f6de9c69119594f7dad3bd525937c94c8200d0


> Conclusion: Reviews are very helpful :-)

Ha!  :-) (... and I wasn't even involed here!)  ;-P


As testing showed here:

> --- /dev/null
> +++ b/gcc/testsuite/gfortran.dg/assumed_rank_22_aux.c
> @@ -0,0 +1,68 @@
> +/* Called by assumed_rank_22.f90.  */

> +  if (num == 0)
> +    assert (x->dim[2].extent == -1);
> +  else if (num == 20)
> +    assert (x->dim[2].extent == 1);
> +  else if (num == 40)
> +    {
> +      /* FIXME: - dg-output = 'c_assumed ... OK' checked in .f90 file. */
> +      /* assert (x->dim[2].extent == 0); */
> +      if (x->dim[2].extent == 0)
> +     __builtin_printf ("c_assumed - 40 - OK\n");
> +      else
> +     __builtin_printf ("ERROR: c_assumed num=%d: "
> +                   "x->dim[2].extent = %d != 0\n",
> +                   num, x->dim[2].extent);
> +    }
> +  else if (num == 60)
> +    assert (x->dim[2].extent == 2);
> +  else if (num == 80)
> +    assert (x->dim[2].extent == 2);
> +  else if (num == 100)
> +    {
> +      /* FIXME: - dg-output = 'c_assumed ... OK' checked in .f90 file. */
> +      /* assert (x->dim[2].extent == 0); */
> +      if (x->dim[2].extent == 0)
> +     __builtin_printf ("c_assumed - 100 - OK\n");
> +      else
> +     __builtin_printf ("ERROR: c_assumed num=%d: "
> +                   "x->dim[2].extent = %d != 0\n",
> +                   num, x->dim[2].extent);
> +    }
> +  else
> +    assert (0);

... the 'ERROR:' prefixes printed do confuse DejaGnu...  As obvious,
pushed to master branch commit 95540a6d1d7b29cdd3ed06fbcb07465804504cfd
"'gfortran.dg/assumed_rank_22_aux.c' messages printed vs. DejaGnu", see
attached.


Grüße
 Thomas


-----------------
Siemens Electronic Design Automation GmbH; Anschrift: Arnulfstraße 201, 80634 München; Gesellschaft mit beschränkter Haftung; Geschäftsführer: Thomas Heurung, Frank Thürauf; Sitz der Gesellschaft: München; Registergericht München, HRB 106955