[gcc] GCC 4.5.0=>4.5.1

gcc/gcc/testsuite/gfortran.dg/structure_constructor_8.f03

 ! { dg-do compile }
 ! Test for errors when setting private components inside a structure constructor
 ! or when constructing a private structure.
 
 MODULE privmod
   IMPLICIT NONE
 
   TYPE :: haspriv_t
     INTEGER :: a
     INTEGER, PRIVATE :: b = 42
@@ skipping 33 matching lines @@
 
   ! This should succeed, not giving value to private component
   struct1 = haspriv_t (5)
   struct2 = allpriv_t ()
 
   ! These should fail
   struct1 = haspriv_t (1, 2) ! { dg-error "is a PRIVATE component" }
   struct1 = haspriv_t (b = 2, a = 1) ! { dg-error "is a PRIVATE component" }
 
   ! This should fail as all components are private
-  struct2 = allpriv_t (5) ! { dg-error "of 'allpriv_t' are PRIVATE" }
+  struct2 = allpriv_t (5) ! { dg-error "is a PRIVATE component" }
 
   ! This should fail as the type itself is private, and the expression should
   ! be deduced as call to an undefined function.
   WRITE (*,*) ispriv_t (5) ! { dg-error "has no IMPLICIT type" }
 
 END PROGRAM test
 ! { dg-final { cleanup-modules "privmod" } }