include 'UIN_AUXI.f'
!! check whether uninitialised variables are detected
!! for "common" arrays
      program uin
      use dt_mod
      type(dt) x(10)
      common /c1/ x
      save /c1/
      call sub1dt(x)
      end