From d5fe65fce82bbfdcfdc30b4db21f87cff7813ef3 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Judica=C3=ABl=20Grasset?= Date: Wed, 8 Jul 2026 11:57:26 +0000 Subject: [PATCH] Add another test case that seems to not work with current flang experiment --- tests/CMakeLists.txt | 1 + tests/import_field_array_util_and_jpim.F90 | 14 ++++++++++++++ 2 files changed, 15 insertions(+) create mode 100644 tests/import_field_array_util_and_jpim.F90 diff --git a/tests/CMakeLists.txt b/tests/CMakeLists.txt index de1457b4..669b2468 100644 --- a/tests/CMakeLists.txt +++ b/tests/CMakeLists.txt @@ -64,6 +64,7 @@ list(APPEND TEST_FILES gpu_to_cpu_delayed_init_value.F90 gpu_to_cpu_init_value.F90 import_field_array_and_jpim.F90 + import_field_array_util_and_jpim.F90 init_owner.F90 init_owner2.F90 init_owner_0_size.F90 diff --git a/tests/import_field_array_util_and_jpim.F90 b/tests/import_field_array_util_and_jpim.F90 new file mode 100644 index 00000000..9ade28ee --- /dev/null +++ b/tests/import_field_array_util_and_jpim.F90 @@ -0,0 +1,14 @@ +! (C) Copyright 2022- ECMWF. +! (C) Copyright 2022- Meteo-France. +! +! This software is licensed under the terms of the Apache Licence Version 2.0 +! which can be obtained at http://www.apache.org/licenses/LICENSE-2.0. +! In applying this licence, ECMWF does not waive the privileges and immunities +! granted to it by virtue of its status as an intergovernmental organisation +! nor does it submit to any jurisdiction. + +PROGRAM IMPORT_FIELD_ARRAY_UTIL_AND_JPIM + USE FIELD_ARRAY_UTIL_MODULE + USE PARKIND1, ONLY: JPIM +END PROGRAM IMPORT_FIELD_ARRAY_UTIL_AND_JPIM +