! A fortran95 program for G95
! By WQY
program main
 !*DEC$ ATTRIBUTES DLLIMPORT :: ARRAYTEST
  integer re_i
    REAL(4) arr(3, 7)
   INTEGER i, j
 write(*,*) "Hello World!"
  DO i = 1, 3
   DO j = 1, 7
       arr (i, j) = i + j
  write(*,*) arr (i, j)
     END DO
   END DO
  call ARRAYTEST(arr)
    DO i = 1, 3
     DO j = 1, 7
  write(*,*) arr (i, j)
     END DO
   END DO
  re_i = system("pause")
end