Skip to content
Snippets Groups Projects
Commit e6e567d0 authored by Yen-Chen Chen's avatar Yen-Chen Chen Committed by Jonas Jucker
Browse files

Fix associated false test (!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 #18



Approved-by: default avatarJonas Jucker <jonas.jucker@env.ethz.ch>
Merged-by: default avatarJonas Jucker <jonas.jucker@env.ethz.ch>
Changelog: bugfix
parent cdf84c33
No related branches found
No related tags found
1 merge request!81Fix associated false test
Pipeline #63705 passed
......@@ -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)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment