From fe94718bcd2d27f509f69a5d3bf7f7075cc8a8e0 Mon Sep 17 00:00:00 2001
From: Martin Diehl <mail@martin-diehl.net>
Date: Sun, 20 Oct 2019 10:32:14 +0200
Subject: [PATCH] avoid accessing null-pointer

---
 src/constitutive.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/constitutive.f90 b/src/constitutive.f90
index c7736fd19..cc9bb2e99 100644
--- a/src/constitutive.f90
+++ b/src/constitutive.f90
@@ -148,7 +148,7 @@ subroutine constitutive_init
         write(FILEUNIT,'(/,a,/)') '['//trim(config_name_phase(ph))//']'
         if (knownPlasticity) then
           write(FILEUNIT,'(a)') '(plasticity)'//char(9)//trim(outputName)
-          if (phase_plasticity(ph) /= PLASTICITY_NONE_ID) then
+          if (associated(thisOutput)) then
             OutputPlasticityLoop: do o = 1,size(thisOutput(:,ins))
               if(len_trim(thisOutput(o,ins)) > 0) &
                 write(FILEUNIT,'(a,i4)') trim(thisOutput(o,ins))//char(9),thisSize(o,ins)