include 'UIN_AUXI.f'
!! check whether uninitialised variables are detected
!! for saved arrays
      program uin
      real x(10)
      save x
      call sub1fp(x)
      end