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)) STOP 1
9   END SUBROUTINE A
10   END MODULE T
11   USE T
12   CALL A(NULL())
13   END
14