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