[gcc r13-4775] testsuite: Fix up pr107397.f90 test [PR107397]

[gcc r13-4775] testsuite: Fix up pr107397.f90 test [PR107397]

[Jakub Jelinek]

https://gcc.gnu.org/g:03fb35f8753d87148b29b3f34b6154abe7db4c41

commit r13-4775-g03fb35f8753d87148b29b3f34b6154abe7db4c41
Author: Jakub Jelinek <jakub@redhat.com>
Date:   Mon Dec 19 11:24:55 2022 +0100

    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  <jakub@redhat.com>
    
            PR fortran/107397
            * gfortran.dg/pr107397.f90: Adjust expected diagnostic wording and
            add space between dg-error string and closing }.

Diff:
---
 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 4592a275e70..fd59bf16007 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