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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [pr15754.f90] - Blame information for rev 195

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	149	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_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [pr15754.f90] - Blame information for rev 195