PROGRAM int_sanity

IMPLICIT NONE

INTEGER*4 n, ntotal

PRINT *,'enter an integer that will be cubed'
READ(*,*)n

ntotal = n*n*n
PRINT *, ntotal, n*int(n,8)*n

END PROGRAM int_sanity
