1! { dg-do compile }
2!
3! NULL(...) pointer is not allowed as operand
4! PR fortran/20888
5!
6! Contributed by Joost VandeVondele
7!
8PROGRAM main
9  IMPLICIT NONE
10  REAL, POINTER :: TEST
11  NULLIFY(TEST)
12  TEST => -NULL(TEST) ! { dg-error "Invalid context for NULL" }
13  IF (TEST .EQ. NULL(TEST)) TEST=>NULL() ! { dg-error "Invalid context for NULL" }
14  IF (NULL(TEST) .EQ. TEST) TEST=>NULL() ! { dg-error "Invalid context for NULL" }
15END PROGRAM main
16