From eefbd4be551b8810ad75b337f9c57087f2077223 Mon Sep 17 00:00:00 2001 From: Dan Bonachea Date: Mon, 13 Jul 2026 14:44:04 -0700 Subject: [PATCH] app/native-multi-image: Enable LFortran testing of module coarray initialization https://github.com/lfortran/lfortran/pull/12180 fixed https://github.com/lfortran/lfortran/issues/12163 --- app/native-multi-image.F90 | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/app/native-multi-image.F90 b/app/native-multi-image.F90 index 6270ecab..9d1d4ffe 100644 --- a/app/native-multi-image.F90 +++ b/app/native-multi-image.F90 @@ -193,9 +193,9 @@ module coarrays implicit none # if HAVE_MODULE_COARRAY - integer :: msc_int_1[*] ! COARRAY_INT_INIT - integer :: msc_int_2[2,*] ! COARRAY_INT_INIT - integer :: msc_int_3[2:3,4:5,*] ! COARRAY_INT_INIT + integer :: msc_int_1[*] COARRAY_INT_INIT + integer :: msc_int_2[2,*] COARRAY_INT_INIT + integer :: msc_int_3[2:3,4:5,*] COARRAY_INT_INIT # endif public @@ -209,7 +209,7 @@ subroutine test_module_coarray() if (once) then once = .false. call status("Testing module SAVE coarrays...") -# if HAVE_COARRAY_INIT && 0 /* disabled pending LFortran issue #12163 */ +# if HAVE_COARRAY_INIT CHECK_VALI(msc_int_1, COARRAY_INT_INIT_VALUE) CHECK_VALI(msc_int_2, COARRAY_INT_INIT_VALUE) CHECK_VALI(msc_int_3, COARRAY_INT_INIT_VALUE)