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