anchor.diff:    ALLOCATE(ptr%point)
     ptr%point%value = 3.1415
   
  -  ! Initialize Stack
  +  ! Initialize Queue
     CALL queue_init(queue, TRANSFER(ptr, queue_data))
     PRINT *, 'Initializing queue with: ', ptr%point
   
  
positive.code: 
    ! Free the queue
    CALL queue_free(queue)  
  END PROGRAM StackTest
  
negative.code: 
      queue_data = selfcopy%data
    END SUBROUTINE queue_peek
  END MODULE Gen_Queue
  
  ! Main program, testing.
  ! Author: Thomas Lang
  ! Version: 2015-08-27
  PROGRAM QueueTest
    USE Gen_Queue
    USE Node
    IMPLICIT NONE
  
  