gcc/testsuite/gfortran.dg/pr81849.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

! { dg-do run }
! PR fortran/81849
program p
   implicit none
   integer  :: n=3
   if (any(g() /= f())) stop 1
   contains
      function g()
         real g(n)
         g = 7
      end function g
      function f() result(r)
         real r(n)
         r = 7
      end function f
end program