From aa03e5930632147cf984710d0fef6f41c68eb37d Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Thu, 22 Jul 2021 11:22:25 +0200 Subject: [PATCH] same statement, different syntax but silences gfortran runtime warning with automated LHS, compiling in DEBUG mode (tested for mesh solver) gives: home/m/DAMASK/src/phase_mechanical.f90:1010:43: runtime error: signed integer overflow: -9223372036854775808 - 1 cannot be represented in type 'integer(kind=8)' --- src/phase_mechanical.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/phase_mechanical.f90 b/src/phase_mechanical.f90 index 8b04a0009..3c14accb5 100644 --- a/src/phase_mechanical.f90 +++ b/src/phase_mechanical.f90 @@ -1007,7 +1007,7 @@ module function phase_mechanical_constitutive(Delta_t,co,ip,el) result(converged subLi0 = phase_mechanical_Li0(ph)%data(1:3,1:3,en) subLp0 = phase_mechanical_Lp0(ph)%data(1:3,1:3,en) - subState0 = plasticState(ph)%State0(:,en) + allocate(subState0,source=plasticState(ph)%State0(:,en)) subFp0 = phase_mechanical_Fp0(ph)%data(1:3,1:3,en) subFi0 = phase_mechanical_Fi0(ph)%data(1:3,1:3,en) subF0 = phase_mechanical_F0(ph)%data(1:3,1:3,en)