4.3BSD/usr/src/usr.lib/libI77/test/pe.f

	program pe
	x = 123.456
	write(*,'(3pe8.1,5x,0pe9.5e0)') x, 123456789e14
	end