URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [null_2.f90] - Diff between revs 302 and 384

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