Go to the documentation of this file.00001 FUNCTION f1()
00002 logical local
00003 integer f1
00004 f1 = 1
00005 end
00006 integer function f2()
00007 f2 = 1
00008 end
00009 recursive function f1r()
00010 integer f1r
00011 f1r = 1
00012 end
00013 recursive integer function f2r()
00014 f2r = 1
00015 end
00016 function f1rr() result(res1)
00017 integer res1
00018 res1 = 1
00019 end
00020 integer function f2rr() result(res2)
00021 res2 = 1
00022 end
00023
00024 function f1a(arg)
00025 real arg
00026 integer f1a
00027 f1a = 1
00028 end
00029 integer function f2a(arg)
00030 real arg
00031 f2a = 1
00032 end
00033 recursive function f1ra(arg)
00034 real arg
00035 integer f1ra
00036 f1ra = 1
00037 end
00038 recursive integer function f2ra(arg)
00039 real arg
00040 f2ra = 1
00041 end
00042 function f1rra(arg) result(res1)
00043 implicit none
00044 real arg
00045 integer res1
00046 res1 = 1
00047 end
00048 integer function f2rra(arg) result(res2)
00049 implicit none
00050 real arg
00051 res2 = 1
00052 end