[to-be-committed] [RISC-V] Use Zbkb for general 64 bit constants when profitable

[official-gcc.git] / gcc / testsuite / gfortran.dg / private_type_6.f90

! { 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