ifort 18.0.1 SIGSEGV with assumed-size array parameter initializer

Hi,

I get a "catastrophic error" with 18.0.1 on the following code when using array parameters with assumed size:

module crash
  implicit none
contains
  subroutine foo
    !real, parameter :: x(*)=[1] ! This works
    !real, parameter :: x(1)=[1]/2.0 ! This works
    real, parameter :: x(*)=[1]/2.0 ! This crashes
  end subroutine foo
end module crash 

% /opt/intel/bin/ifort ifortcrash.f90
ifortcrash.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 ifortcrash.f90 (code 1)

It's not a big deal as I can specify the actual size in which case it works.