OSDN Git Service

2008-11-12 Tobias Burnus <burnus@net-b.de>
authorburnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4>
Wed, 12 Nov 2008 22:27:10 +0000 (22:27 +0000)
committerburnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4>
Wed, 12 Nov 2008 22:27:10 +0000 (22:27 +0000)
        PR fortran/38094
        * gfortran.dg/private_type_4.f90: Fix dg-error pattern.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@141811 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/private_type_4.f90

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