PROGRAM yhtasuuruus
  IMPLICIT NONE
  REAL :: x, y
  REAL, PARAMETER :: toleranssi = 10*EPSILON(x)

  WRITE (*,*) 'anna x ja y:'
  READ (*,*) x, y
  WRITE (*,*) 'arvot x ja y:', x, y

  IF (ABS(x - y) <= toleranssi*ABS(x)) THEN
    WRITE (*,*) 'x ja y likimain yhtä suuria'
  END IF
  IF (x - y > toleranssi*ABS(x)) THEN
    WRITE (*,*) 'x selvästi suurempi kuin y'
  END IF
  IF (y - x > toleranssi*ABS(x)) THEN
    WRITE (*,*) 'x selvästi pienempi kuin y'
  END IF
END PROGRAM yhtasuuruus