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 74c5006..432b55e 100644 (file)
--- 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 2980278..42303ca 100644 (file)
--- 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