src/npb/disk-image/npb/npb-hooks/NPB3.3.1/NPB3.3-MPI/MPI_dummy/test.f - public/gem5-resources - Git at Google

       program
       implicit none
       double precision t, mpi_wtime
       external mpi_wtime
       t = 0.0
       t = mpi_wtime()
       print *, t
       t = mpi_wtime()
       print *, t
       end
	program
	implicit none
	double precision t, mpi_wtime
	external mpi_wtime
	t = 0.0
	t = mpi_wtime()
	print *, t
	t = mpi_wtime()
	print *, t
	end