1! This is the testcase from PR 12841. We used to report a type/rank mismatch 2! when passing NULL() as an argument to a function. 3 MODULE T 4 PUBLIC :: A 5 CONTAINS 6 SUBROUTINE A(B) 7 REAL, POINTER :: B 8 IF (ASSOCIATED(B)) CALL ABORT() 9 END SUBROUTINE A 10 END MODULE T 11 USE T 12 CALL A(NULL()) 13 END 14