------ Build started: Project: 1DPICMCTutorial, Configuration: Debug|x64 ------
Compiling with Intel® Fortran Compiler Classic 2021.3.0 [Intel(R) 64]...
TestICE.f90
D:\Source\Repos\iPM1D2019\1DPICMCTutorial\TestICE.f90(65): catastrophic error: **Internal compiler error: internal abort** 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 D:\Source\Repos\iPM1D2019\1DPICMCTutorial\TestICE.f90 (code 1)
Build log written to "file://D:\Source\Repos\iPM1D2019\1DPICMCTutorial\x64\Debug\BuildLog.htm"
1DPICMCTutorial - 1 error(s), 0 warning(s)
It seems the error is in this subroutine, removing the associate will fix it.
Subroutine UpdateGrid0D1TA0(GD,A0D)
Implicit none
Class(Grid0D1T(*,*)),intent(inout) :: GD
Real(8),intent(in) :: A0D
!Integer(4) :: Ns
Associate(Shift=>GD%Shift,Timer=>GD%Timer,A2D=>GD%Value)
A2D(Shift,Timer)=A0D
Shift=Shift+1
If(Shift==GD%Ns+1) Then
Shift=1
Timer=Timer+1
End If
End Associate
Return
End Subroutine UpdateGrid0D1TA0
