gcc/testsuite/gfortran.dg/recursive_reference_3.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-std=f2018" }
   3 ! PR fortran/105138 - recursive procedures and shadowing of intrinsics
   4
   5 RECURSIVE FUNCTION LOG_GAMMA(Z) RESULT(RES)
   6   COMPLEX, INTENT(IN) :: Z
   7   COMPLEX             :: RES
   8   RES = LOG_GAMMA(Z)
   9 END FUNCTION LOG_GAMMA
  10
  11 recursive subroutine date_and_time (z)
  12   real :: z
  13   if (z > 0) call date_and_time (z-1)
  14 end subroutine date_and_time