Dynamic memory allocation in Fortran DLL

[ikawa]

The following code:

pointer (iaa,a(1))
call free(iaa)
iaa = malloc(4*2*8066907)

do ii = 1, 7566907
a(ii) = 0
enddo

works fine as a part of a Fortran exe program but it
generates an error as part of a Fortran DLL
for a(ii) = 0 when ii=2

Unhandled exception in Prog1.exe (TESTSUB.DLL):
0xC000008C: Array Bounds Exceeded.

What I can do to run this piece of code inside a Fortran DLL
file without any errors?

TIA,

Izydor

[Steven_L_Intel1]

Change a(1) to a(*)

Incidentally, you'd get the same error in an executable program if compiled with bounds checking enabled.

Steve

[Intel_C_Intel]

Isn't it bad form to call free before malloc?

[Steven_L_Intel1]

Indeed it is!

Steve