! 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