ICE on initialization of scalar pointer to target in DATA statement with -stand

[Harald1]

Hello,

the following (IMHO) valid code ICEs with current ifort/ifx:

program test
  implicit none
  integer, target  :: t = 42
  integer, pointer :: p, q
  data p /NULL()/ ! OK
  data q /t/      ! ICE with -stand
! q => t          ! this is OK
  print *, t, q
end

I get:

% ifort ifort-data.f90 && ./a.out 
          42          42
% ifort ifort-data.f90 -stand
ifort-data.f90: catastrophic error: **Internal compiler error: segmentation violation signal raised** Please report this error along with the circumstances in which it occurred in a Software Problem Report.  Note: File and line given may not be explicit cause of this error.
compilation aborted for ifort-data.f90 (code 1)

 I think this is mostly self-explaining...

[Barbara_P_Intel]

I filed a bug report on this ICE, CMPLRLLVM-50040. I'll post when there's a fix.

@Harald1, you are giving -stand a workout!

[Barbara_P_Intel]

This ICE is fixed in the compilers that were released in late 2023. Sorry for the delay in letting you know.