On Thu, 12 Aug 2004, Guylaine prat wrote:
> Hello,
> this is a simple program that I wrote and tested on different machine and compiler:
> --------------------
> program my_test
> implicit none
> integer, parameter :: my_real = selected_real_kind(13)
> real(my_real), parameter :: epsilon_para = epsilon(1._my_real)
> real(my_real):: epsilon_val
> intrinsic epsilon
>
> epsilon_val = epsilon(1._my_real)
> write(*,*) 'epsilon_para = ', epsilon_para
> write(*,*) 'epsilon_val = ', epsilon_val
> end program my_test
> --------------------
> On a Linux machine with an Intel (ifort V8.0 demo version), I obtain the bad result as follow:
> [LinuxIntel] >ifort -o pgme_essai pgme_essai.f90
> [LinuxIntel] >./pgme_essai
> epsilon_para = 1.797693134862316E+308
> epsilon_val = 2.220446049250313E-016
This is strange. I tried your little test program with three
different compilers:
Intel ifort 8.0 version 046 patch 050,
Intel ifc 7.1 version 042, and
NAG f95 Release 4.2 edit 529.
All three give the same, correct result.
Regards,
Roland
+----------------------------------------------------------------------+
| Roland Schilling Home-Office: +49(89)32929-670 |
| Max-Planck-Institut für Gravitationsphysik |
| -- Albert-Einstein-Institut -- |
| D-85748 Garching E-mail: [log in to unmask] |
| Germany http://www.geo600.uni-hannover.de |
+----------------------------------------------------------------------+
|