subroutine sub1(x)
      integer x(*)
      x(1) = 1
      x(3) = x(2)
      print * , x(3)
      end
      subroutine sub1fp(x)
      real x(*)
      x(1) = 1.
      x(3) = x(2)
      print * , x(3)
      end
      module dt_mod
      type dt
      sequence                  ! necessary for common
      integer i
      end type
      end module
      subroutine sub1dt(x)
      use dt_mod
      type(dt) x(*)
      x(1) = dt(1)
      x(3) = x(2)
      print * , x(3)
      end