1! Bug reported by Jim Chen on 31 Dec 2002 2module Global_Variables 3implicit none 4 5! Example of array-spec in entity-decl 6real*8, save :: & 7H (NDIM, NDIM) = 0.D0, & 8H0(NDIM, NDIM), & 9H1(NDIM, NDIM) = 0.D0, & 10H2(NDIM, NDIM) = 0.D0, & 11H3(NDIM, NDIM) = 0.D0, & 12H4(NDIM, NDIM) = 0.D0, & 13H5(NDIM, NDIM) = 0.D0 14 15end module Global_Variables 16