Module expert needed

[Paul Richard Thomas]

Dear FX,

I will take a look this afternoon - no guarantees mark you! I am aware
of the chunk in module.c that handles IEEE but have tended to avert my
gaze when I encounter it.....

Cheers

Paul

On 4 August 2015 at 10:37, FX <fxcoudert@gmail.com> wrote:
> [Do we have a resident module expert? I guess Paul qualifies!]
>
> I’m trying to get IEEE functions in constant expressions, like with the following code:
>
> program test
>   use ieee_arithmetic
>   integer, parameter :: n = ieee_selected_real_kind(0, 0)
>   logical, parameter :: l2 = ieee_support_flag(ieee_overflow)
> end
>
> There, the symbol for “ieee_selected_real_kind” is correctly marked with (sym->from_intmod == INTMOD_IEEE_ARITHMETIC), but “ieee_support_flag” does not have (sym->from_intmod == INTMOD_IEEE_EXCEPTIONS) as it should, but (sym->from_intmod == 0). So I can’t catch the call in gfc_check_init_expr(), unfortunately.
>
> I can’t find in the module.c code where this difference in treatment is coming from. Anyone can help?
>
> FX



-- 
Outside of a dog, a book is a man's best friend. Inside of a dog it's
too dark to read.

Groucho Marx