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