Hello,
I'm having a problem using ifort 12.1 on the following code
file tmem.f90:
[fortran]program tmem
use mem_mod
real(kind(1.d0)), allocatable :: work(:)
integer :: err
!$omp parallel private(work, err)
! allocate(work(10), stat=err)
call aalloc_d(work, 10, err)
write(*,*)'err:',err
!$omp end parallel
stop
end program tmem
[/fortran]
and file mem_mod.f90:
[fortran]module mem_mod
contains
subroutine aalloc_d(a, n, err)
real(kind(1.d0)), allocatable :: a(:)
integer, intent(in) :: n
integer :: err
err = 0
write(*,*)allocated(a)
allocate(a(n), stat=err)
return
end subroutine aalloc_d
end module mem_mod
[/fortran] The problem is that when I run this code (with any number of OpenMP threads, even 1) I get an error 151, which, according to the ifort guide means that I'm trying to allocate something already allocated. Now, I suspect that this is an ifort bug for the following reasons:
- the code works with intel 12.1 if I put both the module and the program in the same file
- the code works (either in separate files or in the same one) with ifort 11.1, ifort 12.0, gfortran 4.6 and xlf2003 13.1
- the code works if the allocation is done with a simple "allocate" instead of calling the alloc_d subroutine (see the commented line in the program)
Can anybody help?
Regards,
alfredo
