+
−! { dg-do run }
+
−! { dg-shouldfail "runtime error" }
+
−! { dg-output "At line 15.*Attempt to DEALLOCATE unallocated 'ptr'" }
+
−
+
−! PR fortran/37507
+
−! Check that locus is printed for DEALLOCATE errors.
+
−
+
−PROGRAM main
+
−  IMPLICIT NONE
+
−  INTEGER, POINTER :: ptr
+
−  INTEGER, ALLOCATABLE :: arr(:)
+
−
+
−  ALLOCATE (ptr, arr(5))
+
−  DEALLOCATE (ptr)
+
−  DEALLOCATE (arr, ptr)
+
−END PROGRAM main