blob: 5834d7c53e5316f886597acee87e85eeb5e5f8f7 [file] [log] [blame]
! { dg-do compile }
module mymod
type :: mytyp
integer :: i
end type mytyp
contains
subroutine mysub
implicit none
type(mytyp) :: a
integer :: commoni,commonj
commoni = a%i
commonj = a%j ! { dg-error "is not a member of" }
end subroutine mysub
end module mymod