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