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