topic Thanks. Just curious about in Intel® Fortran Compiler

Compiler Error

Michael8 — Fri, 31 Oct 2014 18:00:43 GMT

Hello:

I am getting a compiler error, and was able to narrow it down to a test case. The error is: The shapes of the array expressions do not conform.

I am using the 14.0.3.202 version of the compiler. When I switch back to version 12.0.5.221, it compiles just fine.

Here is the sample code:

module TestMod


   implicit none
   private

   character (len = 100), dimension(5) :: charArr

contains

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

   character (len = 100) function GetCharArr()
      dimension :: GetCharArr(5)
      GetCharArr = charArr
   end function GetCharArr

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

end module TestMod

Can anyone explain to me why I'm getting this error message, or, if it is possibly a compiler issue?

Thanks.
Michael

It's a compiler bug. If you

Steven_L_Intel1 — Fri, 31 Oct 2014 18:13:00 GMT

It's a compiler bug. If you do it this way instead, it works:

function GetCharArr()
      character(len=100),dimension(5) :: GetCharArr

I prefer this version as it keeps all the declaration in one place. For some reason the use of LEN= throws it off here. I will report this to the developers and will let you know of any progress. Thanks. Issue ID is DPD200362719.

Thank you for the quick reply

Michael8 — Fri, 31 Oct 2014 18:17:13 GMT

Thank you for the quick reply, and for the workaround.

I'll look forward to hearing about progress,

Thanks.
Michael

Quote:Steve Lionel (Intel)

FortranFan — Fri, 31 Oct 2014 22:14:54 GMT

Steve Lionel (Intel) wrote:

It's a compiler bug. If you do it this way instead, it works:
function GetCharArr()
      character(len=100),dimension(5) :: GetCharArr
I prefer this version as it keeps all the declaration in one place. For some reason the use of LEN= throws it off here. I will report this to the developers and will let you know of any progress. Thanks. Issue ID is DPD200362719.

Michael,

In addition to Steve's suggestion, the following is also an option which provides both flexibility with respect to defining the function result as well as making it more readable:

   FUNCTION GetCharArr() RESULT(RetArr)
      
      !.. Function result
      CHARACTER(LEN = 100) :: RetArr(5)
      
      RetArr = charArr
      
   END FUNCTION GetCharArr

Also, consider adding the PURE attribute to FUNCTION subprograms as the compiler can help flag if the function has "side effects" beyond returning what it is supposed to.

I expect this bug to be fixed

Steven_L_Intel1 — Mon, 10 Nov 2014 16:34:18 GMT

I expect this bug to be fixed in Update 2.

Thanks. Just curious about

Michael8 — Mon, 10 Nov 2014 18:23:06 GMT

Thanks. Just curious about the expected release date for Update 2?

Michael

Looks like early February.

Steven_L_Intel1 — Mon, 10 Nov 2014 18:52:49 GMT

Looks like early February.