Index: gcc/gcc/testsuite/gfortran.dg/structure_constructor_8.f03 |
diff --git a/gcc/gcc/testsuite/gfortran.dg/structure_constructor_8.f03 b/gcc/gcc/testsuite/gfortran.dg/structure_constructor_8.f03 |
index 520b52853d59900d97939ce395fdfaae6ee10792..b86d0ecccaf0e7f895f99c7b2ef159f36f3beeb8 100644 |
--- a/gcc/gcc/testsuite/gfortran.dg/structure_constructor_8.f03 |
+++ b/gcc/gcc/testsuite/gfortran.dg/structure_constructor_8.f03 |
@@ -51,7 +51,7 @@ PROGRAM test |
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. |