Aritmetický IF je operátorem programovacích jazyků Fortran (od raných verzí po Fortran 90, ve kterém byl zastaralý) a Focal . Operátor specifikuje aritmetický výraz a tři návěští, na které se řízení přenese, pokud je výraz menší než nula, roven nule nebo větší než nula:
IF ( výraz ) on_negative , on_zero , on_positiveAritmetický IF byl původně jedinou variantou podmíněného operátoru ve Fortranu. Počínaje Fortranem 66 byl nahrazen logickým IF a od Fortranu 77 - strukturálním IF, sémanticky rovnocenným s operátory větví jiných programovacích jazyků.
Příklad použití C Program vezme číslo od uživatele C a vypíše jeho poměr k nule . PROGRAMOVÝ TESTIF IMPLICITNÍ ŽÁDNÉ CELÉ ČÍSLO N WRITE ( * , "('Zadejte číslo: ',$)" ) ČTĚTE ( * , * ) N IF ( N ) 100 , 200 , 300 100 ZAPIŠTE ( * , * ) N , 'méně než nula.' GOTO 400 200 WRITE ( * , * ) N , 'je nula'. GOTO 400 300 ZAPIŠTE ( * , * ) N , 'větší než nula' GOTO 400 400 POKRAČOVAT UKONČIT PROGRAM