! { dg-do compile } | |
! Test fix of PR24705 - ICE on assumed character length | |
! internal function. | |
! | |
character (6) :: c | |
c = f1 () ! { dg-error "must not be assumed length" } | |
if (c .ne. 'abcdef') call abort | |
contains | |
function f1 () | |
character (*) :: f1 | |
f1 = 'abcdef' | |
end function f1 | |
end |