Bug in IFort 13.0.1 64-bit compiler for Linux

mecej4 · ‎01-13-2013

This is a simple reproducer for the bug exposed in a recent thread in this forum (http://software.intel.com/en-us/comment/reply/328146/1687759 ). Older versions of the Intel compiler compile this program with no error, but IFort 13.0.1, 64-bit version, when used with or without the recommended options -O3 -shared-intel -mcmodel=large, fails on Suse 12.2 X64:

[bash]bcom2.f90(14): error #6502: COMMON cannot be extended beyond the beginning of a block. [WKC] ,wkc(1) ---------------^ compilation aborted for bcom2.f90 (code 1) [/bash]

Here is the reproducer:

[fortran]

                program IFort13Bug
!
      implicit none
      integer, parameter :: &
        natmmx=22, ncmpmx=12, mxlmx=3, nk1x=550, nk3x=21, &
        msex=201, ngmx=15, ngpmx=650, npmx=350, msr=400
!
integer, parameter :: &
        ndmx=natmmx*(natmmx-1)+1, &
        ntypmx=ncmpmx, nkmx=nk1x+nk3x
!
      complex*16 :: tch((2*mxlmx-1)**2*ngmx*nkmx*ndmx) &
              ,pexf(npmx*nkmx*ndmx),wt(ngmx,3,msex,2) &
              ,wkc(1)
!
      real*8     hh(npmx,(2*mxlmx-1)**2,nkmx)
!
      real*8     wk(1)
      real*8     wk1(4*natmmx+ngpmx+ntypmx),wk2(ncmpmx*msr)        &
                ,wk3(5*msr),wk4(2*mxlmx**2*ncmpmx*msex),wk5(7620) &
                ,wk6((2*mxlmx+2)*msr)                              &
                ,wk7((2*mxlmx-1)**2*mxlmx*msex)                    &
                ,wk8((2*mxlmx-1)**2*mxlmx*24)
!
!
      common     tch,pexf,hh,wkc
!
      equivalence (wkc,wk,wk1,wk2,wk3,wk4,wk5,wk6,wk7,wk8)
!
      end program IFort13Bug

[/fortran]

Steven_L_Intel1 · ‎01-14-2013

Thanks - I've escalated this as issue DPD200240073. Curiously, on Windows (where this shouldn't work at all), 12.1 gives a correct error message but 13.0 gives the same bogus error Linux does.

Steven_L_Intel1 · ‎01-30-2013

I expect this problem to be fixed in Update 3 (end of March).