'' examples/manual/switches/option-byval.bas
''
'' Example extracted from the FreeBASIC Manual
'' from topic 'OPTION BYVAL'
''
'' See Also: https://www.freebasic.net/wiki/wikka.php?wakka=KeyPgOptionbyval
'' --------

'' compile with the "-lang fblite" compiler switch

#lang "fblite"

Sub TestDefaultByref( a As Integer )
  '' change the value
  a = a * 2
End Sub

'' This FBlite lesson contrasts declarations before and after Option ByVal.
'' FB-LINTER: DISABLE-NEXT-LINE FBL-OPT-001
Option ByVal

Sub TestDefaultByval( a As Integer )
  a = a * 2
End Sub

Dim a As Integer = 1

Print "a = "; a
TestDefaultByref( a )
Print "After TestDefaultByref : a = "; a
Print

Print "a = "; a
TestDefaultByval( a )
Print "After TestDefaultByval : a = "; a
Print