blob: 3102aad622cd895a8db185db8c2940c0e0ec9582 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
! { 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
|
