This directive instructs the compiler to always inline the specified routine.
!DIR$ FORCEINLINE
To use this directive, compiler optimization level should be in -O0 to
-O3. The FORCEINLINE directive overrides the compiler options
-finline-functions and -fno-inline-functions.
Example
!DIR$ FORCEINLINE
SUBROUTINE func_forceinline
INTEGER :: i
do i = 0, 5
WRITE(*, *) "Hello World"
end do
END SUBROUTINE func_forceinline
PROGRAM test_inline
IMPLICIT NONE
call func_forceinline
END PROGRAM test_inline