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:
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)
Here is the reproducer:
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
