gcc/fortran/

[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / private_type_6.f90

diff --git a/gcc/testsuite/gfortran.dg/private_type_6.f90 b/gcc/testsuite/gfortran.dg/private_type_6.f90
index c44661f..4af3f70 100644 (file)
--- a/gcc/testsuite/gfortran.dg/private_type_6.f90
+++ b/gcc/testsuite/gfortran.dg/private_type_6.f90
@@ -18,8 +18,8 @@ program foo_test
   implicit none
   TYPE(footype) :: foo
   TYPE(bartype) :: foo2
-  foo  = footype(1) ! { dg-error "has PRIVATE components" }
-  foo2 = bartype(1,2) ! { dg-error "has PRIVATE components" }
+  foo  = footype(1) ! { dg-error "is a PRIVATE component" }
+  foo2 = bartype(1,2) ! { dg-error "is a PRIVATE component" }
   foo2%dummy2 = 5 ! { dg-error "is a PRIVATE component" }
 end program foo_test
 ! { dg-final { cleanup-modules "foomod" } }