| ! { dg-do compile } | |
| ! { dg-options "-std=gnu -Wreturn-type" } | |
| ! PR fortran/34248 | |
| ! | |
| ! There was an ICE for assumed-length functions | |
| ! if RESULT(...) was used and no value assigned | |
| ! to the result variable. | |
| ! | |
| character(*) FUNCTION test() RESULT(ctab) | |
| ctab = "Hello" | |
| END function test | |
| FUNCTION test2() RESULT(res) ! { dg-warning "not set" } | |
| character(*) :: res | |
| END function test2 |