topic This bug has been fixed for in Intel® Fortran Compiler

Internal compiler error getting RNG state

jmcfarland101 — Wed, 16 Jul 2014 21:27:38 GMT

The following code generates an internal compiler error with 14.0.3.202:

MODULE rng_state
  TYPE StateType
    INTEGER, ALLOCATABLE :: s(:)
  END TYPE StateType
  TYPE (StateType) :: state
CONTAINS
  SUBROUTINE get()
    INTEGER :: i
    CALL RANDOM_SEED(size=i)
    IF (.NOT. ALLOCATED(state%s)) ALLOCATE( state%s(i) )
    CALL random_seed(get=state%s)
  END SUBROUTINE get
END MODULE rng_state

Thanks, we'll check it out.

Steven_L_Intel1 — Thu, 17 Jul 2014 00:30:28 GMT

Thanks, we'll check it out.

I can reproduce this and have

Steven_L_Intel1 — Mon, 21 Jul 2014 15:32:15 GMT

I can reproduce this and have escalated it to development as issue DPD200358912.

A workaround is to do this:

  SUBROUTINE get()
    INTEGER :: i
    integer, allocatable :: state_temp(:)
    CALL RANDOM_SEED(size=i)
    ALLOCATE(state_temp(i))
    CALL random_seed(get=state_temp)
    CALL move_alloc(FROM=state_temp, TO=state%s)
  END SUBROUTINE get

This bug has been fixed for

Steven_L_Intel1 — Tue, 22 Jul 2014 19:42:37 GMT

This bug has been fixed for an update later this year (not in the initial 15.0 release.)