URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc3/] [gcc/] [testsuite/] [gfortran.dg/] [private_type_6.f90] - Rev 581
Go to most recent revision | Compare with Previous | Blame | View Log
! { 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
! { dg-final { cleanup-modules "foomod" } }
Go to most recent revision | Compare with Previous | Blame | View Log