PROGRAM TestingInts

! Written by Kate T-C
! Feb 11, 2009  For the Fortran short course
! This program demonstrates problems with integer division

real :: a=8, b=4, c=10
integer :: ai=8, bi=4, ci=10

print *, 'real: a', a, 'b', b, 'c', c
print *, 'int: a', ai, 'b', bi, 'c', ci

print *, a/b, a/bi, ai/bi 
print *, c/b, c/bi, ci/bi
print *, real(ci)/bi, ci/real(bi), real(ci/bi)

END PROGRAM TestingInts