! This is the testcase from PR 12841. We used to report a type/rank mismatch ! when passing NULL() as an argument to a function. MODULE T PUBLIC :: A CONTAINS SUBROUTINE A(B) REAL, POINTER :: B IF (ASSOCIATED(B)) CALL ABORT() END SUBROUTINE A END MODULE T USE T CALL A(NULL()) END
