blob: 67e65f81f6c50178652f5ee1e2d02460dbf3f800 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
! 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
|