selected_real_kind(18, 4000) with 64 bit compiler

I was thinking about the question raised yesterday about testing whether an executable is 32 or 64 bit.

As the current 64 bit compiler does not support extended precision, testing for the kind number for a such a real value with the 64 bit compiler should return a negative error value, whilst the 32 bit compiler should return 3.

This does not appear to be the case.

program p
use iso_fortran_env
print*, compiler_version()
print*, compiler_options()
print*, selected_real_kind(18, 4000)
end program p

returns when compiled with the 64 bit compiler

FTN95 v9.20
64;ERROR_NUMBERS;LINK;NO_BANNER;UNLIMITED_ERRORS;VS7;
3

Perhaps this is a consequence of the ongoing development work for extended precision for the 64 bit compiler which I seem to remember being mentioned in a post a few months ago?

Ken

There is ongoing work to permit extended precision for 64 bits and it looks like this has mistakenly been included in the release.

I will make a note of this.