!     test case insensitive for symobls
! i should be treated as I, not another function i
! Liao, 5/26/2009
      SUBROUTINE A28
      IMPLICIT NONE
      INTEGER I
      i = 1
      END SUBROUTINE A28

