! crashes when this is invoked:
! ifort /stand /recursive ad_process_unit_test_function.f90

LOGICAL FUNCTION AD_PROCESS_UNIT_TEST_FUNCTION()

   IMPLICIT NONE
   
   CHARACTER(LEN=8) :: SUBSYSTEM_NAME

   SUBSYSTEM_NAME = GET_SUBSYSTEM_NAME( 1 )

   AD_PROCESS_UNIT_TEST_FUNCTION = .FALSE.

END FUNCTION

SUBROUTINE XXXXXXX()
   IMPLICIT NONE
END SUBROUTINE

SUBROUTINE YYYYY()
   IMPLICIT NONE
END SUBROUTINE

