2 ! { dg-options "-std=gnu -Wreturn-type" }
5 ! There was an ICE for assumed-length functions
6 ! if RESULT(...) was used and no value assigned
7 ! to the result variable.
9 character(*) FUNCTION test() RESULT(ctab
)
13 FUNCTION test2() RESULT(res
) ! { dg-warning "not set" }