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