integer*2 i
      parameter (i=-1)
      print *,i
      print *,'test1 passed, if above line = -1'
      end