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
C	REAL	Q*16

C
C IRIX f90
C

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

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

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

	END