! { dg-do compile } | |
! PR fortran/32460 | |
! | |
module foomod | |
implicit none | |
type :: footype | |
private | |
integer :: dummy | |
end type footype | |
TYPE :: bartype | |
integer :: dummy | |
integer, private :: dummy2 | |
end type bartype | |
end module foomod | |
program foo_test | |
USE foomod | |
implicit none | |
TYPE(footype) :: foo | |
TYPE(bartype) :: foo2 | |
foo = footype(1) ! { dg-error "is a PRIVATE component" } | |
foo2 = bartype(1,2) ! { dg-error "is a PRIVATE component" } | |
foo2%dummy2 = 5 ! { dg-error "is a PRIVATE component" } | |
end program foo_test |