about the compiler

[txdqpal ch]

gfortran developers:
              I do not know if this is a bug in your compiler and please 
check it and I would be glad to receive your reply
           implicit real(a-h,o-z)
           implicit integer(i-n)
          then I defined a variable ndim=3
          then       I run some do-enddo loops
         when I have: print *, ndim, I found it is 0, could not understand 
where the problem is.
          and if you define ndim as an integer at the beginning, it seems 
there is no such sort of errors.
anyway, please check it.
               Thanks a lot    for your effort.
                                                                             
                               a gfortran user