'' examples/manual/procs/overload.bas
''
'' Example extracted from the FreeBASIC Manual
'' from topic 'OVERLOAD'
''
'' See Also: https://www.freebasic.net/wiki/wikka.php?wakka=KeyPgOverload
'' --------

Declare Function SUM Overload (A As Integer,B As Integer) As Integer
Declare Function SUM Overload (A As Single,B As Single) As Single
Function SUM  (A As Integer,B As Integer) As Integer
   Return A + B
End Function
Function SUM  (A As Single,B As Single) As Single
   Return A + B
End Function
Dim As Integer A,B
Dim As Single A1,B1
A=2
B=3
A1=2.
b1=3.
Print SUM(A,B)
Print SUM (A1,B1)
