FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

'gfortran.dg/assumed_rank_22_aux.c' messages printed vs. DejaGnu

Browse source 
Print lower-case 'error: [...]' instead of upper-case 'ERROR: [...]', to not
confuse the DejaGnu log processing harness into thinking these are DejaGnu
harness ERRORs:

    Running /scratch/tschwing/build2-trusty-cs/gcc/build/submit-big/source-gcc/gcc/testsuite/gfortran.dg/dg.exp ...
    +ERROR: c_assumed num=100: x->dim[2].extent = -1 != 0
    +ERROR: c_assumed num=100: x->dim[2].extent = -1 != 0
    +ERROR: c_assumed num=100: x->dim[2].extent = -1 != 0
    +ERROR: c_assumed num=100: x->dim[2].extent = -1 != 0
    +ERROR: c_assumed num=100: x->dim[2].extent = -1 != 0
    +ERROR: c_assumed num=100: x->dim[2].extent = -1 != 0
    [...]

Fix-up for recent commit 00f6de9c69
"Fortran: Fix assumed-size to assumed-rank passing [PR94070]".

	gcc/testsuite/
	* gfortran.dg/assumed_rank_22_aux.c: Adjust messages printed.
This commit is contained in:
Thomas Schwinge 2021-09-28 09:02:56 +02:00
parent a43ae03a05
commit 95540a6d1d
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
gcc/testsuite/gfortran.dg/assumed_rank_22_aux.c
View file

@ -29,7 +29,7 @@ c_assumed (CFI_cdesc_t *x, int num)
if (x->dim[2].extent == 0)
__builtin_printf ("c_assumed - 40 - OK\n");
else
__builtin_printf ("ERROR: c_assumed num=%d: "
__builtin_printf ("error: c_assumed num=%d: "
"x->dim[2].extent = %d != 0\n",
num, x->dim[2].extent);
}
@ -44,7 +44,7 @@ c_assumed (CFI_cdesc_t *x, int num)
if (x->dim[2].extent == 0)
__builtin_printf ("c_assumed - 100 - OK\n");
else
__builtin_printf ("ERROR: c_assumed num=%d: "
__builtin_printf ("error: c_assumed num=%d: "
"x->dim[2].extent = %d != 0\n",
num, x->dim[2].extent);
}