3 ! IO of derived types with private components is allowed in the module itself,
49 write (*, *) x ! { dg-error "PRIVATE components" }
50 write (*, *) y ! { dg-error "PRIVATE components" }
51 write (*, *) z ! { dg-error "PRIVATE components" }
55 ! { dg-final { cleanup-modules "gfortran2" } }