1! { dg-do compile }
2! PR fortran/32460
3!
4module foomod
5  implicit none
6  type :: footype
7    private
8    integer :: dummy
9  end type footype
10  TYPE :: bartype
11    integer :: dummy
12    integer, private :: dummy2
13  end type bartype
14end module foomod
15
16program foo_test
17  USE foomod
18  implicit none
19  TYPE(footype) :: foo
20  TYPE(bartype) :: foo2
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" }
24end program foo_test
25