WTF IS WRONG WITH MY FORTRAN?

halp, halp

SUBROUTINE Taco (ah, be, ce)

INTEGER, INTENT(IN) :: ah, be
INTEGER, INTENT(OUT) :: ce
ce = ah + be

END SUBROUTINE

PROGRAM Wontcompile

INTEGER q, u, o

READ(*,*) q
READ(*,*) u

CALL Taco (q,u,o)

WRITE(*,*) o

END PROGRAM Wontcompile

hahaha CAN HAS STDIO