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

Subversion Repositories openrisc

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

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


! { dg-do run }
! { dg-shouldfail "runtime error" }
! { dg-output "At line 15.*Attempt to DEALLOCATE unallocated 'ptr'" }
 
! PR fortran/37507
! Check that locus is printed for DEALLOCATE errors.
 
PROGRAM main
  IMPLICIT NONE
  INTEGER, POINTER :: ptr
  INTEGER, ALLOCATABLE :: arr(:)
 
  ALLOCATE (ptr, arr(5))
  DEALLOCATE (ptr)
  DEALLOCATE (arr, ptr)
END PROGRAM main

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`! { dg-shouldfail "runtime error" }`
3			`! { dg-output "At line 15.*Attempt to DEALLOCATE unallocated 'ptr'" }`
4
5			`! PR fortran/37507`
6			`! Check that locus is printed for DEALLOCATE errors.`
7
8			`PROGRAM main`
9			`IMPLICIT NONE`
10			`INTEGER, POINTER :: ptr`
11			`INTEGER, ALLOCATABLE :: arr(:)`
12
13			`ALLOCATE (ptr, arr(5))`
14			`DEALLOCATE (ptr)`
15			`DEALLOCATE (arr, ptr)`
16			`END PROGRAM main`

Browse

Tools

Subversion Repositories openrisc

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