0
program calculator
implicit none
real :: value_1, value_2, sol_key
character :: operation, opr_key, symbol
print *,'What operation would you like to do?'
read(*,*)operation
print *,'Input first value:'
read(*,*)value_1
print *,'Input second value:'
read(*,*)value_2
...