gcc/testsuite/gfortran.dg/allocate_error_1.f90

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