diff options
| author | Jakub Jelinek <jakub@redhat.com> | 2022-12-19 11:24:55 +0100 |
|---|---|---|
| committer | Jakub Jelinek <jakub@redhat.com> | 2022-12-19 11:24:55 +0100 |
| commit | 03fb35f8753d87148b29b3f34b6154abe7db4c41 (patch) | |
| tree | 973b043361246964426aeb2910e086cd07b71ab1 | |
| parent | f39b7a4d37f46bb7e627d67f4a1ae9114f2175d1 (diff) | |
| download | gcc-03fb35f8753d87148b29b3f34b6154abe7db4c41.zip gcc-03fb35f8753d87148b29b3f34b6154abe7db4c41.tar.gz gcc-03fb35f8753d87148b29b3f34b6154abe7db4c41.tar.bz2 | |
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 }.
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pr107397.f90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/testsuite/gfortran.dg/pr107397.f90 b/gcc/testsuite/gfortran.dg/pr107397.f90 index 4592a27..fd59bf1 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 |