integer kind need to match for array constructor

hence, a=[a,b] requires a and b of the same kind
This commit is contained in:
Martin Diehl 2018-05-27 08:09:32 +02:00
parent 466cb57d7c
commit 60cdffacd6
1 changed files with 33 additions and 32 deletions

View File

@ -155,9 +155,10 @@ subroutine plastic_kinehardening_init(fileUnit)
integer(pInt), intent(in) :: fileUnit integer(pInt), intent(in) :: fileUnit
integer(pInt), allocatable, dimension(:) :: chunkPos integer(pInt), allocatable, dimension(:) :: chunkPos
integer(kind(undefined_ID)) :: &
output_ID
integer(pInt) :: & integer(pInt) :: &
o, j, k, f, & o, j, k, f, &
output_ID, &
phase, & phase, &
instance, & instance, &
maxNinstance, & maxNinstance, &