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