1! { 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
8PROGRAM 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)
16END PROGRAM main
17