gcc/testsuite/gfortran.dg/private_type_6.f90

   1 ! { dg-do compile }
   2 ! PR fortran/32460
   3 !
   4 module 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
  14 end module foomod
  15
  16 program foo_test
  17   USE foomod
  18   implicit none
  19   TYPE(footype) :: foo
  20   TYPE(bartype) :: foo2
  21   foo  = footype(1) ! { dg-error "All components of 'footype' are PRIVATE" }
  22   foo2 = bartype(1,2) ! { dg-error "'dummy2' is PRIVATE" }
  23   foo2%dummy2 = 5 ! { dg-error "is a PRIVATE component" }
  24 end program foo_test
  25 ! { dg-final { cleanup-modules "foomod" } }