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