12 integer, private :: dummy2
21 foo = footype(1) ! { dg-error "is a PRIVATE component" }
22 foo2 = bartype(1,2) ! { dg-error "is a PRIVATE component" }
23 foo2%dummy2 = 5 ! { dg-error "is a PRIVATE component" }
25 ! { dg-final { cleanup-modules "foomod" } }