16 lines
387 B
Fortran
16 lines
387 B
Fortran
! { 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
|