• Main Page
  • Files
  • File List
  • File Members

a.f90

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

Generated on Sun Nov 14 2010 19:19:37 by  doxygen 1.7.2