path: root/src/example.txt

int::nfact
int::n
nfact=1
n=1
do while(n<10)
nfact=nfact*n
n=n+1
print*,n," ", nfact endprint
end do