| ! { dg-do compile } | |
| ! PR fortran/102311 - ICE during error recovery checking entry characteristics | |
| module m | |
| contains | |
| function f() ! { dg-error "mismatched characteristics" } | |
| character(:), allocatable :: f | |
| character(1) :: g | |
| f = 'f' | |
| entry g() | |
| g = 'g' | |
| end | |
| end |