gcc/testsuite/gfortran.dg/deallocate_error_1.f90

   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
   8 PROGRAM main
   9   IMPLICIT NONE
  10   INTEGER, ALLOCATABLE :: arr(:)
  11
  12   ALLOCATE (arr(5))
  13   DEALLOCATE (arr)
  14   DEALLOCATE (arr)
  15 END PROGRAM main