gcc/testsuite/gfortran.dg/pr110996.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/110996
   4 ! This example used to result in memory errors and sometimes internal compiler
   5 ! errors, because the rejection of the subroutine statement was causing the
   6 ! symbol D to be freed without also freeing the symbol C which remained in the
   7 ! namespace with a dangling pointer to D.
   8 !
   9 ! Original testcase from Jeremy Bennett  <jeremy.bennett@embecosm.com>
  10
  11 PROGRAM p
  12 CONTAINS
  13   SUBROUTINE c(d) e { dg-error "Syntax error" }
  14   SUBROUTINE f
  15   END
  16 END