! This program converts a Fahrenheit temperature to Celsius.
!
! References:
!   https://www.tutorialspoint.com/fortran

program variables
    real :: fahrenheit, celsius
    
    print ("(a)"), "Enter Fahrenheit temperature:"
    read *, fahrenheit
    
    celsius = (fahrenheit - 32) * 5 / 9
    
    print "(f5.1 a f5.1 a)", fahrenheit, "° Fahrenheit is ", &
        celsius, "° Celsius"
end program