mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
17 lines
294 B
Fortran
17 lines
294 B
Fortran
! { 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
|