blob: 9773597f4e1b95e6a30c3e18b2256f609fb9afc7 [file] [log] [blame]
! { dg-do compile }
! PR fortran/87737 - improve check on function entry characteristics
function f() ! { dg-error "mismatched characteristics" }
character(:), allocatable :: f
character(1) :: g
f = 'f'
return
entry g()
g = 'g'
end
function f2() ! { dg-error "mismatched characteristics" }
character(1) :: f2
character(1), allocatable :: g2
f2 = 'f'
return
entry g2()
g2 = 'g'
end