program angle_test
!------------------------------------------------------------------------------
!Program: Angle Class Test Program
!Author: Chris Harper
!Date: 3/30/2008
!------------------------------------------------------------------------------

use angle_class
implicit none

type (angle) :: test1, test2

!get one angle from the user
!but use a predefined angle for the other
test1 = input()
test2 = new_angle(45, 30, 30)

if (test1 == test2) then
	print *, "Equal"
else if (test1 < test2) then
	print *, "Less Than"
else
	print *, "Greater Than"
end if

print *, "Sum:"
call output(test1 + test2)

print *, "Difference:"
call output(test1 - test2)
end program