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