From 08d12591f0d6325aabf8cad060421d85ea909150 Mon Sep 17 00:00:00 2001 From: Spencer Bryngelson Date: Fri, 20 Feb 2026 22:19:03 -0500 Subject: [PATCH] Fix integer(wp) non-standard kind for loop variables in bubble module wp is a real kind parameter. integer(wp) is non-standard and may produce wrong-sized integers on strict compilers. Co-Authored-By: Claude Opus 4.6 --- src/simulation/m_bubbles_EE.fpp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/simulation/m_bubbles_EE.fpp b/src/simulation/m_bubbles_EE.fpp index dad03d3f87..95b78d2440 100644 --- a/src/simulation/m_bubbles_EE.fpp +++ b/src/simulation/m_bubbles_EE.fpp @@ -74,7 +74,7 @@ contains subroutine s_comp_alpha_from_n(q_cons_vf) type(scalar_field), dimension(sys_size), intent(inout) :: q_cons_vf real(wp) :: nR3bar - integer(wp) :: i, j, k, l + integer :: i, j, k, l $:GPU_PARALLEL_LOOP(private='[i,j,k,l,nR3bar]', collapse=3) do l = 0, p