Lines Matching full:function

4 non_recursive function f01(n) result(res)
13 end function
15 non_recursive function f02(n) result(res)
24   integer function nested()
27   end function nested
28 end function
30 !ERROR: An assumed-length CHARACTER(*) function cannot be RECURSIVE
31 recursive character(*) function f03(n) ! C723
34 end function
36 !ERROR: An assumed-length CHARACTER(*) function cannot be RECURSIVE
37 recursive function f04(n) result(res) ! C723
41 end function
43 !ERROR: An assumed-length CHARACTER(*) function cannot return an array
44 character(*) function f05()
47 end function
49 !ERROR: An assumed-length CHARACTER(*) function cannot return an array
50 function f06()
53 end function
55 !ERROR: An assumed-length CHARACTER(*) function cannot return a POINTER
56 character(*) function f07()
60 end function
62 !ERROR: An assumed-length CHARACTER(*) function cannot return a POINTER
63 function f08()
67 end function
69 !ERROR: An assumed-length CHARACTER(*) function cannot be PURE
70 pure character(*) function f09() ! C723
72 end function
74 !ERROR: An assumed-length CHARACTER(*) function cannot be PURE
75 pure function f10()
78 end function
80 !ERROR: An assumed-length CHARACTER(*) function cannot be ELEMENTAL
81 elemental character(*) function f11(n) ! C723
84 end function
86 !ERROR: An assumed-length CHARACTER(*) function cannot be ELEMENTAL
87 elemental function f12(n)
91 end function
93 function f13(n) result(res)
99     !ERROR: Assumed-length CHARACTER(*) function 'f13' cannot call itself
100     !ERROR: Assumed-length character function must be defined with a length to be called
103 end function
105 function f14(n) result(res)
114   character(1) function nested()
115     !ERROR: Assumed-length CHARACTER(*) function 'f14' cannot call itself
116     !ERROR: Assumed-length character function must be defined with a length to be called
118   end function nested
119 end function
129     character*(*) function f2()
130     end function
132     character*(*) function fp3()
133     end function
134     !ERROR: A function interface may not declare an assumed-length CHARACTER(*) result
135     character*(*) function f4()
136     end function
140   !ERROR: Assumed-length character function must be defined with a length to be called