C Sun: -xtypemap=real:64,double:64,integer:64
C Sun: -r8
C SGI: f90 -mips3 -n32 -d16 -o prec prec.f


	PROGRAM hello

	REAL	F
	DOUBLE PRECISION	D
C
C Sun
	REAL	Q*16


	F=1.0
	PRINT *, 'REAL: ', F
	PRINT *, 'REAL: ', 4*ATAN(F)

	D=1.0
	PRINT *, 'DOUBLE: ', D
	PRINT *, 'DOUBLE: ', 4*DATAN(D)
C	PRINT *, 'DOUBLE: ', 4*ATAN(D)

	Q=1.0
	PRINT *, 'QUAD: ', Q
C	PRINT *, 'QUAD: ', 4*QATAN(Q)

	END