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