integer kind need to match for array constructor

hence, a=[a,b] requires a and b of the same kind
2018-05-27 08:09:32 +02:00 · 2018-05-27 08:09:32 +02:00 · 60cdffacd6
parent 466cb57d7c
commit 60cdffacd6
1 changed files with 33 additions and 32 deletions
--- a/src/plastic_kinematichardening.f90
+++ b/src/plastic_kinematichardening.f90
@ -155,9 +155,10 @@ subroutine plastic_kinehardening_init(fileUnit)
 integer(pInt), intent(in) :: fileUnit

 integer(pInt), allocatable, dimension(:) :: chunkPos
+ integer(kind(undefined_ID)) :: &
+   output_ID
 integer(pInt) :: &
   o, j, k, f, &
-   output_ID, &
   phase, & 
   instance, &
   maxNinstance, &