diff --git a/test/fortran/test_fortran_tools.f90 b/test/fortran/test_fortran_tools.f90
index 7dc9957b922ca2c0e41273649ad8cf89d86eac35..67b3c138be15238206f5ffa3c42925933a0cc931 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)