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