I've written it as one function now, but after making a choice selection it tells me I'm missing a left parenthesis in format.
program calculator
IMPLICIT NONE
REAL :: addition, subtraction, multiplication, division, x, y, j, k, x_data, y_data !x = A, y = B
CHARACTER :: choice, a, b, c, d...