FIX: Entire DLLEXPORTed Arrays Cannot Be Written Implicitly

MORE INFORMATION

Sample Code #1

C Compile options needed: none

C FORTRAN Main Source:

      interface to subroutine bar[dllimport]()
      end
      common /bridge[dllimport]/ i
      integer*4 i(4)
      i(2) = 2

      write(*,*) 'In Main: i = ', i
      do loop=1,4
        write(*,*) 'In main: i = ', i(loop)
      end do

      write(*,*) 'Calling DLL routine...'
      call bar
c The commented line below illustrates the suggested workaround:
c     write(*,*) 'In Main: i = ', (i(loop+0),loop=1,4)
      write(*,*) 'In Main: i = ', (i(loop), loop=1,4)
      do loop=1,4
        write(*,*) 'In main: i = ', i(loop)
      end do
      end
				

Sample Code #2

C FORTRAN DLL Source:

      subroutine bar[dllexport]()
      common /bridge[dllexport]/ i
      integer*4 i(4)
      i(3) = 33
      write(*,*) 'In DLL:  i = ', i
      return
      end
				

Program Output (corrected for CR/LF anomalies)

In Main: i =   550774271   637468674      139472 -1869574000
In main: i =           0
In main: i =           2
In main: i =           0
In main: i =           0
Calling DLL routine...
In DLL:  i =           0           2          33           0
In Main: i =   550774271   637468674      139472 -1869574000
In main: i =           0
In main: i =           2
In main: i =          33
In main: i =           0