text: ! { dg-do compile }
  !
  ! NULL(...) pointer is not allowed as operand
  ! PR fortran/20888
  !
  ! Contributed by Joost VandeVondele
  !
  PROGRAM main
    IMPLICIT NONE
    REAL, POINTER :: TEST
    NULLIFY(TEST)
    TEST => -NULL(TEST) ! { dg-error "Invalid context for NULL" }
    IF (TEST .EQ. NULL(TEST)) TEST=>NULL() ! { dg-error "Invalid context for NULL" }
    IF (NULL(TEST) .EQ. TEST) TEST=>NULL() ! { dg-error "Invalid context for NULL" }
  END PROGRAM main
  