blob: 518560aa198639249b1669bf3d79832ed06a35e7 [file] [log] [blame]
! { 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