From 4be18cb9e905862e939172c5220b1e314fa581a8 Mon Sep 17 00:00:00 2001 From: Paul Romano Date: Mon, 2 Apr 2018 11:41:02 -0500 Subject: [PATCH] Prevent ICE on gfortran 4.8 --- src/mesh_header.F90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/mesh_header.F90 b/src/mesh_header.F90 index b1751a4676..fc13a868e5 100644 --- a/src/mesh_header.F90 +++ b/src/mesh_header.F90 @@ -716,9 +716,9 @@ contains if (index >= 1 .and. index <= n_meshes) then associate (m => meshes(index)) if (allocated(m % lower_left)) then - ll = C_LOC(m % lower_left) - ur = C_LOC(m % upper_right) - width = C_LOC(m % width) + ll = C_LOC(m % lower_left(1)) + ur = C_LOC(m % upper_right(1)) + width = C_LOC(m % width(1)) n = m % n_dimension else err = E_ALLOCATE