| ! { dg-do compile } | |
| ! PR fortran/66044 | |
| ! | |
| ! Original code from Gerhard Steinmetz | |
| ! <gerhard dot steinmetz dot fortran at t-online dot de> | |
| subroutine p | |
| end subroutine p | |
| entry e ! { dg-error "Unexpected ENTRY statement" } | |
| end | |
| module m | |
| type t | |
| contains | |
| entry e ! { dg-error "Unexpected ENTRY statement" } | |
| end type | |
| end module m |