5 ! Entry was previously not possible in a module.
6 ! Checks also whether the different result combinations
33 entry ent(a) result(func2)
42 function func(a) result(res)
48 entry ent(a) result(func2)
58 function func(a) result(res)
80 if(func(3) /= 12) call abort()
81 if(abs(ent(7) + 14.0) > tiny(1.0)) call abort()
86 if(func(9) /= 72) call abort()
87 if(abs(ent(11) + 44.0) > tiny(1.0)) call abort()
92 if(func(13) /= 156) call abort()
93 if(abs(ent(17) + 102.0) > tiny(1.0)) call abort()
98 if(func(23) /= 368) call abort()
99 if(abs(ent(27) + 216.0) > tiny(1.0)) call abort()
103 ! { dg-final { cleanup-modules "m1 m2 m3 m4" } }