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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [pr15754.f90] - Blame information for rev 801

Go to most recent revision | Details | Compare with Previous | View Log


! we didn't give a warning if the RHS of an assignment was NULL
! { dg-do compile }
INTEGER, POINTER :: P
I = NULL() ! { dg-error "NULL appears" "Assignment non-pointer = NULL" }
P = NULL() ! { dg-error "NULL appears" "Assignment pointer = NULL" }
P => NULL()
END

Line No.	Rev	Author	Line
1	694	jeremybenn	`! we didn't give a warning if the RHS of an assignment was NULL`
2			`! { dg-do compile }`
3			`INTEGER, POINTER :: P`
4			`I = NULL() ! { dg-error "NULL appears" "Assignment non-pointer = NULL" }`
5			`P = NULL() ! { dg-error "NULL appears" "Assignment pointer = NULL" }`
6			`P => NULL()`
7			`END`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [pr15754.f90] - Blame information for rev 801