gcc/testsuite/gfortran.dg/entry_9.f90

   1 ! { dg-do run }
   2 ! Check whether RESULT of ENTRY defaults to entry-name.
   3 ! PR fortran/30873
   4 !
   5 ! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
   6 !
   7 MODULE M1
   8   CONTAINS
   9     FUNCTION F2(K)
  10       INTEGER :: F2,K
  11       F2=E1(K)
  12     END FUNCTION F2
  13
  14     RECURSIVE FUNCTION F1(I)
  15       INTEGER :: F1,I,E1
  16       F1=F2(I)
  17       RETURN
  18      ENTRY E1(I)
  19       E1=-I
  20       RETURN
  21     END FUNCTION F1
  22 END  MODULE M1
  23
  24 program main
  25   use m1
  26   if (E1(5) /= -5) call abort()
  27   if (F2(4) /= -4) call abort()
  28   if (F1(1) /= -1) call abort()
  29 end program main