From e6e567d0adf36ee7a3b49296b2f0bd9d43c42cf8 Mon Sep 17 00:00:00 2001
From: Yen-Chen Chen <yen-chen.chen@kit.edu>
Date: Thu, 4 Apr 2024 12:06:19 +0000
Subject: [PATCH] Fix associated false test
(icon-libraries/libfortran-support!81)
## What is the bug
Fix a test for the if_associated subroutine.
## How do you fix it
The false test did not pop up because of a bug in FortUTF. See https://gitlab.dkrz.de/icon-libraries/libfortran-support/-/issues/18
Approved-by: Jonas Jucker <jonas.jucker@env.ethz.ch>
Merged-by: Jonas Jucker <jonas.jucker@env.ethz.ch>
Changelog: bugfix
---
test/fortran/test_fortran_tools.f90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/test/fortran/test_fortran_tools.f90 b/test/fortran/test_fortran_tools.f90
index 7dc9957..67b3c13 100644
--- a/test/fortran/test_fortran_tools.f90
+++ b/test/fortran/test_fortran_tools.f90
@@ -213,7 +213,7 @@ CONTAINS
ptr => NULL()
CALL TAG_TEST("Test_if_associated_false")
output => if_associated(ptr)
- CALL ASSERT_EQUAL(SIZE(output), 0)
+ CALL ASSERT_EQUAL(ASSOCIATED(output), .FALSE.)
CALL TAG_TEST("Test_if_associated_false_else")
output => if_associated(ptr, arr2)
--
GitLab