This change makes the test work for GNU too

Probably something was uninitialized and GNU was accessing unallocated memory
This commit is contained in:
Sharan Roongta 2021-06-14 14:58:14 +02:00
parent c64f9eb805
commit 5f01b076d2
1 changed files with 1 additions and 0 deletions

View File

@ -224,6 +224,7 @@ pure function permutationStar111(point) result(qPt)
real(pReal), dimension(3,6) :: temp
temp = 0.0_pReal
temp(:,1) = [point(1), point(2), 1.0_pReal - point(1) - point(2)]
temp(:,2) = [point(1), 1.0_pReal - point(1) - point(2), point(2)]
temp(:,4) = [point(2), 1.0_pReal - point(1) - point(2), point(1)]