1! { dg-do compile }
2! { dg-options "-Wall" }
3!
4! PR fortran/50923
5!
6module m
7contains
8  integer pure function f() ! { dg-warning "Return value of function 'f' at .1. not set" }
9  end function f
10  integer pure function g() result(h) ! { dg-warning "Return value 'h' of function 'g' declared at .1. not set" }
11  end function g
12  integer pure function i()
13    i = 7
14  end function i
15  integer pure function j() result(k)
16    k = 8
17  end function j
18end module m
19