c_associated newly declared

scivision · scivision · commit 64fec827755e · 2025-02-28T12:09:20.000-05:00
diff --git a/test/nullptr/main.f90 b/test/nullptr/main.f90
@@ -19,6 +19,8 @@ function nullchar(b) bind(C)
 
 type(c_ptr) :: ptr
 
+if (c_associated(ptr)) error stop "nullptr should not be c_associated"
+
 if (.not. c_associated(nullchar(f))) error stop "nullptr should not be detected"
 
 ptr = nullchar(t)
