program queue_test
!------------------------------------------------------------------------------
!Program: Queue Class Test Program
!Author: Chris Harper
!Date: 4/15/2008
!------------------------------------------------------------------------------

use queue_class

implicit none

type(queue) :: test

!create the queue and populate it
test = new_queue()
call push(test, 5)
call push(test, 10)
call push(test, 15)

print *, "Queue Contents:", to_array(test)

print *, "Queue Size: ", test%count

print *, "Pop: ", pop(test)

print *, "Queue Contents:", to_array(test)

!pop the rest
do while (.not. is_empty(test))
	print *, "Pop: ", pop(test)
end do

print *, "Queue Size: ", test%count
end