https://gcc.gnu.org/bugzilla/show_bug.cgi?id=99355
--- Comment #13 from Dominique d'Humieres <dominiq at lps dot ens.fr> --- I have changed the test in pr57871 comment 0 to implicit none integer,parameter:: p1 = 4, dp = kind(1d0) print *,'kind(1.0_4) ',kind(1.0_4),'precision(1.0_4) ',precision(1.0_4) print *,'kind(1.0_p1)',kind(1.0_p1),'precision(1.0_p1)',precision(1.0_p1) print *,'kind(1.0_dp)',kind(1.0_dp),'precision(1.0_dp)',precision(1.0_dp) end Before r11-7501 (r11-7474) the output with -freal-4-real-16 is kind(1.0_4) 16 precision(1.0_4) 33 kind(1.0_p1) 16 precision(1.0_p1) 33 kind(1.0_dp) 8 precision(1.0_dp) 15 after (r11-7502) it is kind(1.0_4) 4 precision(1.0_4) 6 kind(1.0_p1) 4 precision(1.0_p1) 6 kind(1.0_dp) 8 precision(1.0_dp) 15 It is not the result I expect.
