On Wed, Aug 07, 2024 at 06:58:23PM +0200, Jakub Jelinek wrote:
> > For Fortran, this plus into gfc_get_extern_function_decl, i.e. that name
> > appears as external declaration. While the user could mess around, it checks
> > that it is a function and the return type is the expected on (i.e. logical).
> > Thus, there shouldn't be any issue with nested functions.
>
> And for Fortran I was wondering more whether it would work or not.
> Say
> program foobar
> if (omp_is_initial_device ()) stop 1
> contains
> logical function omp_is_initial_device ()
> omp_is_initial_device = .false.
> end function omp_is_initial_device
> end program foobar
> or so?
Guess a module function would be interesting as well.
Jakub
