topic Re: Nested SELECT TYPE and SELECT RANK constructs. in Intel® Fortran Compiler

Nested SELECT TYPE and SELECT RANK constructs.

OP1 — Thu, 15 Jun 2023 18:22:31 GMT

I get an access violation error with ifort 2021.9.0 ... and an ICE with ifx 2023.1.0 with the following code.

MODULE M IMPLICIT NONE (TYPE, EXTERNAL) CONTAINS SUBROUTINE S(X) IMPLICIT NONE (TYPE, EXTERNAL) CLASS(*) :: X(..) SELECT RANK (X) RANK (0) SELECT TYPE (XX => X) TYPE IS (INTEGER) WRITE(*, *) 'X is of type INTEGER.' END SELECT END SELECT END SUBROUTINE S END MODULE M PROGRAM P USE M IMPLICIT NONE (TYPE, EXTERNAL) INTEGER :: I CALL S(I) END PROGRAM P

Either there is a missing check in the compiler to prevent those nested constructs, or this is a legal code but there is a compiler bug.

Re: Nested SELECT TYPE and SELECT RANK constructs.

FortranFan — Thu, 15 Jun 2023 19:57:58 GMT

The code appears conformant, it looks like a bug in IFORT.

Intel team: FYI, IFX encounters ICE with this.

Re: Nested SELECT TYPE and SELECT RANK constructs.

Ron_Green — Thu, 15 Jun 2023 21:54:20 GMT

we will get a bug report open. Thanks for sending this to us!

Re:Nested SELECT TYPE and SELECT RANK constructs.

Ron_Green — Tue, 20 Jun 2023 22:12:23 GMT

bug ID is CMPLRLLVM-48814

Re: Nested SELECT TYPE and SELECT RANK constructs.

Ron_Green — Thu, 04 Apr 2024 23:30:44 GMT

@OP1 this bug is fixed in the 2024.1.0 compiler. I have just confirmed the fix in the released compiler.

Re: Nested SELECT TYPE and SELECT RANK constructs.

riad_h_1 — Wed, 05 Jun 2024 08:46:59 GMT

Hello,

For Mac Os users who can't benefit from new releases (ifort no longer maintained...), does anyone have a workaround for this problem?

Re: Nested SELECT TYPE and SELECT RANK constructs.

Devorah_H_Intel — Tue, 03 Sep 2024 20:06:16 GMT

This issue has been fixed in the recently released Intel Fortran Compiler, available for download as part of Intel HPC Toolkit 2024.2.1