! { dg-do compile } | |
! { dg-additional-options "-Wall -Wextra -Wno-unused-dummy-argument" } | |
! PR fortran/70330 - this used to cause an ICE. | |
! Test case by Vladimir Fuka | |
function f(o) ! { dg-warning "Return value of function" } | |
optional o | |
end function f |