<Example Program>

	Program result_example     Real :: a=2, b=3, c=4     Real, External :: shiki1,shiki2     Print *, shiki1(2.,a,b,c)     Print *, shiki2(2.,a,b,c) End Program Real Function shiki1(x,a,b,c) Result( y )     Real, Intent(In) :: x,a,b,c     y = a*x**2 + b*x + c End Function shiki1 Function shiki2(x,a,b,c) Result( y )     Real y     Real, Intent(In) :: x,a,b,c     y = a*x**2 + b*x + c End Function
	Execution Results   18.0000000   18.0000000