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