------- Comment #22 from dominiq at lps dot ens dot fr 2009-12-07 14:55 ------- (In reply to comment #21) > ... > real(10) :: r10 > ...
This does work on platforms that do not support real(10), but have real(16). Something such as: integer,parameter :: k8 = selected_real_kind (precision (0.0d0)) integer,parameter :: k = max(k8,selected_real_kind (precision (0.0d0) + 1)) ... real(k) rk ... allows the test to pass on these platforms (see commet #9). -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=41711
