subroutine suba(c,d)
integer c,d
type tt
   integer ef
end type
type(tt) :: a
end subroutine 
