'' examples/manual/memory/deallocate2.bas
''
'' NOTICE: This file is part of the FreeBASIC Compiler package and can't
''         be included in other distributions without authorization.
''
'' See Also: http://www.freebasic.net/wiki/wikka.php?wakka=KeyPgDeallocate
'' --------

Sub DeallocateExample2()
   Dim As Integer Ptr integerPtr = Allocate( Len( Integer ) )  '' initialize pointer to
	                                                           '' new memory

   Dim As Integer Ptr anotherIntegerPtr = integerPtr     '' initialize another pointer to
	                                                     '' the same memory

   *anotherIntegerPtr = 69                               '' use other pointer
   Print *anotherIntegerPtr

   Deallocate( anotherIntegerPtr )                       '' free memory back to system
   anotherIntegerPtr = 0                                 '' and zero other pointer

'' *integerPtr = 420                                     '' undefined bahavior; original
	                                                     '' pointer is invalid
End Sub

   DeallocateExample2()
   End 0
