dimension narr(5)
	  write(6,100) narr(1)
	  narr(5) = 1234567
	  write(6,100) narr(5)
100   format(i8)
      stop
      end