C Sun: f77 -xtypemap=real:64,double:64,integer:64
C Sun: f77 -r8
C SGI: f90 -mips3 -n32 [-d16] -o prec prec.f
C SGI: f77 -mips3 -n32 [-d16] -o prec prec.f
C GNU: g77 fails


	PROGRAM hello

	REAL	F
	CHARACTER	STRING*32

	STRING = 'Apples'
	PRINT *, 'STRING: ', STRING

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

	STRING = '2.459'
	READ(UNIT=STRING, FMT=*) F
	PRINT *, 'STRING: ', STRING
	PRINT *, 'REAL: ', F

	F=4*ATAN(1.0)
	WRITE(UNIT=STRING, FMT=*) F
	PRINT *, 'REAL: ', F
	PRINT *, 'STRING: ', STRING

	END