Erroneous Code

What is wrong with the following piece of code?

    SUBROUTINE Mistaken(A,B,C)
     IMPLICIT NONE
     REAL, INTENT(IN) :: A
     REAL, INTENT(OUT) :: C
     A = 2*C
    END

• Solution