gcc/testsuite/gfortran.dg/pr81849.f90

   1 ! { dg-do run }
   2 ! PR fortran/81849
   3 program p
   4    implicit none
   5    integer  :: n=3
   6    if (any(g() /= f())) stop 1
   7    contains
   8       function g()
   9          real g(n)
  10          g = 7
  11       end function g
  12       function f() result(r)
  13          real r(n)
  14          r = 7
  15       end function f
  16 end program