Solving Fortran Error on Pascal's Triangle Program

[Tubs]

I am trying to write a fortran program to take an integer n and print out the first n rows of Pascal's triangle. The code I have so far:

PROGRAM PascalTriangle
IMPLICIT NONE
INTEGER i, n, j, ktemp, ktemp1, ktemp2, ktemp3, ktemp4, ktemp5
WRITE(6,*), "Enter a positive integer n:> "

READ(5,*) n

do 10 i = 1, n
do 20 j = 1, i
ktemp1 = FACT(i)
ktemp2 = FACT(j)
ktemp3 = i - j
ktemp4 = FACT(ktemp3)
ktemp = ktemp1 / ktemp2 * ktemp4
write(*), ktemp
20 continue
10 continue
STOP
END

FUNCTION FACT(N)
FACT=1
DO 30 J=2,N
FACT=FACT*J
30 CONTINUE
RETURN
END

Whats really confusing me is that the compiler throws a single error at the ktemp1 = FACT(i) line, stating that its an invalid declaration of or reference to symbol FACT. It looks like it should be a simple fix but I can't seem to get around the error. Any help is greatly appreciated.

 

[uart]

Try using a local variable to hold the intermediate values of "fact" and only assigning it to the functions return value once at the completion of the function.

function fact(n)
tmpfact :: integer
tmpfact = 1 
do 30 j-2,n
    tmpfact = tmpfact * j
30 continue
fact=tmpfact
return

 

[jtbell]

FUNCTION FACT(N)

Try including the type of data being returned, in the function definition:

INTEGER FUNCTION FACT(N)