[gcc r12-3924] 'gfortran.dg/assumed_rank_22_aux.c' messages printed vs. DejaGnu

[Thomas Schwinge]

https://gcc.gnu.org/g:95540a6d1d7b29cdd3ed06fbcb07465804504cfd

commit r12-3924-g95540a6d1d7b29cdd3ed06fbcb07465804504cfd
Author: Thomas Schwinge <thomas@codesourcery.com>
Date:   Tue Sep 28 09:02:56 2021 +0200

    '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.

Diff:
---
 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 2fbf83d649a..e5fe02135e9 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);
     }