URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [pr15754.f90] - Blame information for rev 437

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	302	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_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [pr15754.f90] - Blame information for rev 437