gcc/testsuite/gfortran.fortran-torture/execute/entry_11.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

! PR fortran/23663
      function i (n)
      i = n
      i = max (i, 6)
      return
      entry j (n)
      j = n
      j = max (j, 3)
      end

      program entrytest
      if (i (8).ne.8) call abort
      if (i (4).ne.6) call abort
      if (j (0).ne.3) call abort
      if (j (7).ne.7) call abort
      end