C Error_defect.f C This program consists of three simple IF constructs. C The first two are inequalities while the last is an equality READ *,I, J IF (I.LE.(J + 1)) THEN (K = (I + J -1)) ELSE (K = (2 * I + 1)) IF (K.GE.(I + 1)) THEN L = (I + 1)) ELSE L = (J - 1)) IF (I = 5) THEN (M = (2 * L + K)) ELSE (M = (L + 2 * K - 1)) PRINT *, M STOP END