From 63b0fc00a45321c84bb4dcad97dcfdb43b74db63 Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Wed, 12 Nov 2008 23:27:10 +0100 Subject: [PATCH] re PR fortran/38094 (gfortran.dg/private_type_4.f90 -O doesn't work) 2008-11-12 Tobias Burnus PR fortran/38094 * gfortran.dg/private_type_4.f90: Fix dg-error pattern. From-SVN: r141811 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/private_type_4.f90 | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 74c5006..432b55e 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2008-11-12 Tobias Burnus + + PR fortran/38094 + * gfortran.dg/private_type_4.f90: Fix dg-error pattern. + 2008-11-12 Jakub Jelinek PR c++/36478 diff --git a/gcc/testsuite/gfortran.dg/private_type_4.f90 b/gcc/testsuite/gfortran.dg/private_type_4.f90 index 2980278..42303ca 100644 --- a/gcc/testsuite/gfortran.dg/private_type_4.f90 +++ b/gcc/testsuite/gfortran.dg/private_type_4.f90 @@ -14,7 +14,7 @@ module m1 contains - type(t1) function f1() ! { dg-error "cannot be of PRIVATE type" } + type(t1) function f1() ! { dg-error "of PRIVATE derived type" } end function end module -- 2.7.4