blob: a684ea21d46660cd29b1a2525c1bae81c548204a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
! { dg-do compile }
module mymod
type :: mytyp
integer :: i
end type mytyp
contains
subroutine mysub
implicit none
type(mytyp) :: a
integer :: privatei,privatej
privatei = a%i
privatej = a%j ! { dg-error "is not a member" }
end subroutine mysub
end module mymod
|
