diff options
| -rw-r--r-- | gcc/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/unlimited_polymorphic_28.f90 | 2 |
2 files changed, 7 insertions, 1 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 0078581..c0a7d2d 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2019-08-13 Steven G. Kargl <kargl@gcc.gnu.org> + + PR fortran/88072 + * gfortran.dg/unlimited_polymorphic_28.f90: Fix error message. Left + out of previous commit! + 2019-08-13 Steven G. Kargl <kargl@gcc.gnu.org> PR fortran/88072 diff --git a/gcc/testsuite/gfortran.dg/unlimited_polymorphic_28.f90 b/gcc/testsuite/gfortran.dg/unlimited_polymorphic_28.f90 index b474a24..a9f6727 100644 --- a/gcc/testsuite/gfortran.dg/unlimited_polymorphic_28.f90 +++ b/gcc/testsuite/gfortran.dg/unlimited_polymorphic_28.f90 @@ -21,7 +21,7 @@ implicit none type,abstract,extends(c_base) :: c_derived contains - procedure :: f_base => f_derived ! { dg-error "Type mismatch in function result \\(CLASS\\(\\*\\)/CLASS\\(c_base\\)\\)" } + procedure :: f_base => f_derived ! { dg-error "Type mismatch in function result" } end type c_derived contains |