! A fortran95 lib program for G95
! By WQY
SUBROUTINE ARRAYTEST(arr)
!*DEC$ ATTRIBUTES DLLEXPORT :: ARRAYTEST

   REAL(4) arr(3, 7)

   INTEGER i, j

   DO i = 1, 3

     DO j = 1, 7

       arr (i, j) = 11.0 * i + j

     END DO

   END DO

END SUBROUTINE