| ! { dg-do compile } | |
| ! { dg-options "-std=f2018" } | |
| ! PR fortran/105138 - recursive procedures and shadowing of intrinsics | |
| RECURSIVE FUNCTION LOG_GAMMA(Z) RESULT(RES) | |
| COMPLEX, INTENT(IN) :: Z | |
| COMPLEX :: RES | |
| RES = LOG_GAMMA(Z) | |
| END FUNCTION LOG_GAMMA | |
| recursive subroutine date_and_time (z) | |
| real :: z | |
| if (z > 0) call date_and_time (z-1) | |
| end subroutine date_and_time |