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

gcc/testsuite/ChangeLog

+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

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