From: Tobias Burnus <burnus@net-b.de>
Date: Wed, 12 Nov 2008 22:27:10 +0000 (+0100)
Subject: re PR fortran/38094 (gfortran.dg/private_type_4.f90  -O doesn't work)
X-Git-Tag: releases/gcc-4.4.0~1695
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=63b0fc00a45321c84bb4dcad97dcfdb43b74db63;p=thirdparty%2Fgcc.git

re PR fortran/38094 (gfortran.dg/private_type_4.f90  -O doesn't work)

2008-11-12  Tobias Burnus  <burnus@net-b.de>

        PR fortran/38094
        * gfortran.dg/private_type_4.f90: Fix dg-error pattern.

From-SVN: r141811
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 74c5006ae5d1..432b55e76873 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2008-11-12  Tobias Burnus  <burnus@net-b.de>
+
+	PR fortran/38094
+	* gfortran.dg/private_type_4.f90: Fix dg-error pattern.
+
 2008-11-12  Jakub Jelinek  <jakub@redhat.com>
 
 	PR c++/36478
diff --git a/gcc/testsuite/gfortran.dg/private_type_4.f90 b/gcc/testsuite/gfortran.dg/private_type_4.f90
index 29802789b283..42303ca53cca 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