Incorrect name decoration with /iface:cvf using ver 8.0.047?

[ipattielgc]

Using latest IVF 8.0.047, I get a incorrect name mangling of _INDC@16 for the integer function "indc" which contains 2 character and one integer argument.

Compiling without "cvf" works ok. Mixed_string_length makes no difference. I already reported this to support. Ian.

!****************************************************************************

! ifort console.f90 works ok

! ifort /iface:cvf console.f90 does not work

program Console1 implicit none integer :: indc,i character(len=4) :: cva(4), cv

cva(:)=(/'abcd','efgh',' ',' '/)

cv='efgh'

i=indc(cva,4,cv)

! with /iface:cvf comipler generates _INDC@16 (should be @20) end program Console1

!***********************************************************************

integer function indc(cary,nary,cval) implicit none integer :: nary,i character(len=*) :: cary(*),cval

indc=0

do i=1,nary if(cval.eq.cary(i)) then

indc=i

exit endif enddo return end function indc

!***********************************************************************

[Jugoslav_Dujic]

FWIW, it works fine with my 8.0.044 (next-to-last):

/nologo /Zi /Od /iface:cvf /iface:mixed_str_len_arg /module:"Debug/" /object:"Debug/"

/traceback /check:bounds /libs:static /dbglibs /c

(it alsobuilds without /iface:mixed_str_len_arg)

Jugoslav

[Lorri_M_Intel]

Please enter a problem report for this.

This is a perfect example to use in the report; the more simple the example, the easier it is for us to work on!

Thank you -

Lorri