RosettaCodeData/Task/Function-definition/Fortran/function-definition-4.f

5 lines
64 B
FortranFixed
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
FUNCTION MULTINT(X,Y)
INTEGER MULTINT, X, Y
MULTINT = X * Y
END