Name: Anonymous 2008-01-10 15:20
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
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