program aa
integer a,b
real :: d(10,12)
save sa
type ef
  integer a,b
  real rr
end type
type mn
   real db
end type
type(mn) :: am
type(ef) :: ta
end
