From 03fb35f8753d87148b29b3f34b6154abe7db4c41 Mon Sep 17 00:00:00 2001 From: Jakub Jelinek Date: Mon, 19 Dec 2022 11:24:55 +0100 Subject: [PATCH] testsuite: Fix up pr107397.f90 test [PR107397] The pr107397.f90 test FAILs for me, one problem was that the added diagnostics has an indefinite article before BOZ, but the test dg-error didn't. The other problem was that on the other dg-error there was no space between the string and closing }, so it was completely ignored and the error was an excess error. 2022-12-19 Jakub Jelinek PR fortran/107397 * gfortran.dg/pr107397.f90: Adjust expected diagnostic wording and add space between dg-error string and closing }. --- gcc/testsuite/gfortran.dg/pr107397.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/gcc/testsuite/gfortran.dg/pr107397.f90 b/gcc/testsuite/gfortran.dg/pr107397.f90 index 4592a275e70c..fd59bf160070 100644 --- a/gcc/testsuite/gfortran.dg/pr107397.f90 +++ b/gcc/testsuite/gfortran.dg/pr107397.f90 @@ -4,6 +4,6 @@ program p type t real :: a = 1.0 end type - type(t), parameter :: x = z'1' ! { dg-error "incompatible with BOZ" } - x%a = x%a + 2 ! { dg-error "has no IMPLICIT type"} + type(t), parameter :: x = z'1' ! { dg-error "incompatible with a BOZ" } + x%a = x%a + 2 ! { dg-error "has no IMPLICIT type" } end