! { dg-do compile }!! PR fortran/34248!! There was an ICE for assumed-length functions! if RESULT(...) was used and no value assigned! to the result variable.!character(*)FUNCTIONtest()RESULT(ctab)
ctab ="Hello"END function test
FUNCTIONtest2()RESULT(res)character(*) :: res
END function test2