1! PR fortran/23663 2 function i (n) 3 i = n 4 i = max (i, 6) 5 return 6 entry j (n) 7 j = n 8 j = max (j, 3) 9 end 10 11 program entrytest 12 if (i (8).ne.8) STOP 1 13 if (i (4).ne.6) STOP 2 14 if (j (0).ne.3) STOP 3 15 if (j (7).ne.7) STOP 4 16 end 17