1! { dg-do compile } 2! Test fix of PR24705 - ICE on assumed character length 3! internal function. 4! 5character (6) :: c 6 c = f1 () 7 if (c .ne. 'abcdef') call abort 8contains 9 function f1 () ! { dg-error "must not be assumed length" } 10 character (*) :: f1 11 f1 = 'abcdef' 12 end function f1 13end