PROGRAM KAHAN2 ! This program is intentionally incorrect ! if not compiled with the Sun option "-r8const" IMPLICIT NONE INTEGER, PARAMETER :: DP = SELECTED_REAL_KIND(15,307) REAL (KIND=DP) :: A, B, C, D, E A = 1.0/3.0 B = 4.0*A - 1.0 C = 3.0*B - 1.0 D = 0.5*C E = ABS(D) WRITE(*,*) ' my = ', E END PROGRAM KAHAN2