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