include 'UIN_AUXI.f'
!! check whether uninitialised variables are detected
!! for saved arrays declared in modules
      module m1
      real, save :: x(10)
      end module m1
      program uin
      use m1
      call sub1fp(x)
      end