RosettaCodeData/Task/Call-a-function/Fortran/call-a-function-3.f

3 lines
44 B
Forth

H = A + B
IF (blah) H = 3*H - 7