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