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/] [deallocate_error_1.f90] - Diff between revs 302 and 384

Rev 302	Rev 384
`! { dg-do run }`	`! { dg-do run }`
`! { dg-shouldfail "runtime error" }`	`! { dg-shouldfail "runtime error" }`
`! { dg-output "At line 14.*Attempt to DEALLOCATE unallocated 'arr'" }`	`! { dg-output "At line 14.*Attempt to DEALLOCATE unallocated 'arr'" }`

`! PR fortran/37507`	`! PR fortran/37507`
`! Check that locus is printed for DEALLOCATE errors.`	`! Check that locus is printed for DEALLOCATE errors.`

`PROGRAM main`	`PROGRAM main`
`IMPLICIT NONE`	`IMPLICIT NONE`
`INTEGER, ALLOCATABLE :: arr(:)`	`INTEGER, ALLOCATABLE :: arr(:)`

`ALLOCATE (arr(5))`	`ALLOCATE (arr(5))`
`DEALLOCATE (arr)`	`DEALLOCATE (arr)`
`DEALLOCATE (arr)`	`DEALLOCATE (arr)`
`END PROGRAM main`	`END PROGRAM main`