c  in Bench7 when I turned it into an MPI program,
c  it calls a subroutine P7 for each buffer of randomly-generated input data.
c  P7 sets 2 variables only the first time it is called.
c  On the T90 they act like SAVE vars (static) and keep their values.
c  On the T3E they lose their values the 2nd call.
c  When I either use a SAVE statement or use the compile flag -ev it works OK.
c  This is a toy that works ok on both T90 and T3E without SAVE or -ev.

	subroutine saver(buf)
	integer buf, vari

	if (buf.eq.0)  vari = 1234567

	print *, vari

	return
	end