From 95540a6d1d7b29cdd3ed06fbcb07465804504cfd Mon Sep 17 00:00:00 2001 From: Thomas Schwinge Date: Tue, 28 Sep 2021 09:02:56 +0200 Subject: [PATCH] 'gfortran.dg/assumed_rank_22_aux.c' messages printed vs. DejaGnu 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 00f6de9c69119594f7dad3bd525937c94c8200d0 "Fortran: Fix assumed-size to assumed-rank passing [PR94070]". gcc/testsuite/ * gfortran.dg/assumed_rank_22_aux.c: Adjust messages printed. --- gcc/testsuite/gfortran.dg/assumed_rank_22_aux.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/gcc/testsuite/gfortran.dg/assumed_rank_22_aux.c b/gcc/testsuite/gfortran.dg/assumed_rank_22_aux.c index 2fbf83d..e5fe021 100644 --- a/gcc/testsuite/gfortran.dg/assumed_rank_22_aux.c +++ b/gcc/testsuite/gfortran.dg/assumed_rank_22_aux.c @@ -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); } -- 2.7.4