From abb1d111f99fa2b480923e55dd74a974a62c9624 Mon Sep 17 00:00:00 2001 From: "Steven G. Kargl" Date: Tue, 13 Aug 2019 20:13:59 +0000 Subject: [PATCH] re PR fortran/88072 (gfortran crashes with an internal compiler error) 2019-08-13 Steven G. Kargl PR fortran/88072 * gfortran.dg/unlimited_polymorphic_28.f90: Fix error message. Left out of previous commit! From-SVN: r274400 --- gcc/testsuite/ChangeLog | 6 ++++++ gcc/testsuite/gfortran.dg/unlimited_polymorphic_28.f90 | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 00785812a8e..c0a7d2dc236 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2019-08-13 Steven G. Kargl + + PR fortran/88072 + * gfortran.dg/unlimited_polymorphic_28.f90: Fix error message. Left + out of previous commit! + 2019-08-13 Steven G. Kargl PR fortran/88072 diff --git a/gcc/testsuite/gfortran.dg/unlimited_polymorphic_28.f90 b/gcc/testsuite/gfortran.dg/unlimited_polymorphic_28.f90 index b474a243233..a9f67273d5e 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 -- 2.30.2