Type KIND of PARAMETER lost when used as TRANSFER MOLD

[Espen_M_]

The following two statements does *not* produce the same result:

[fortran]

PRINT *, KIND( TRANSFER(real_num,equal_size_int) )

PRINT *, KIND( equal_size_int )

[/fortran]

where equal_size_int is a PARAMETER accessed through a MODULE.

This must be an error...

[Steven_L_Intel1]

Did you perhaps mean to write:

TRANSFER(real_num,0_equal_size_int)

? What you have is just an integer whose value is equal_size_int with default kind.

[Espen_M_]

equal_size_int is the name of the integer parameter, it can have any value and is not intended as a kind parameter (which would have to have the values 1, 2, 4 or 8 in IFORT)

But regardless of that, shouldn't the two statements produce the same result?

[Steven_L_Intel1]

Please show me a complete source that demonstrates the problem. I can't see it from those two lines.