16 lines
443 B
Fortran
16 lines
443 B
Fortran
! { 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
|