blob: 2d6d5c3b6df00a6d70198a0b0f3d4a4aab7e1177 [file] [log] [blame]
! { dg-do compile }
! PR fortran/90986
module mymod
type :: mytyp
integer :: i
end type mytyp
contains
subroutine mysub
implicit none
type(mytyp) :: a
integer :: equivalencei,equivalencej
equivalencei = a%i
equivalencej = a%j ! { dg-error "is not a member of the" }
end subroutine mysub
end module mymod