Call several Fortran95 functions in sequence

Question

I have many functions defined as below:

function f1(x) result (y)
    ...
end function

function f2(x) result (y)
    ...
end function

...

function fn(x) result (y)
    ...
end function

I'm looking for an automatic way to call each one over some input x(i) and print the results. A prototype would be:

f = (/f1, f2, ..., fn/)
do i=1,m
    do j=1,n
        y = f(j)(x(i))
        write(*, *) y
    end do
end do

Of course, this doesn't work. I've triede some goto approach, but aliasing function names doesn't seem to be allowed at all.

Note: I'm using Fortran95.