use small single-precision values, to avoid problem on Alphas when not -mieee

[craig@jcb-sc.com]

Committed.

        tq vm, (burley)


1999-05-10  Craig Burley  <craig@jcb-sc.com>

	* g77.f-torture/execute/erfc.f: Use small single-precision
	values, to avoid problems on Alphas when not -mieee.

*** g77-e/gcc/testsuite/g77.f-torture/execute/erfc.f.~1~	Wed Dec 16 17:05:51 1998
--- g77-e/gcc/testsuite/g77.f-torture/execute/erfc.f	Mon May 10 02:32:19 1999
*************** c=======================================
*** 10,16 ****
  		if (abs(y - .1197949) .ge. 1.e-6) call abort
  
! 		x=10
  		y = erfc(x)
! 		if (y .gt. 1.5e-44) call abort
  
  		x1=0.
--- 10,17 ----
  		if (abs(y - .1197949) .ge. 1.e-6) call abort
  
! * modified from x=10, y .gt. 1.5e-44 to avoid lack of -mieee on Alphas.
! 		x=8
  		y = erfc(x)
! 		if (y .gt. 1.2e-28) call abort
  
  		x1=0.