https://gcc.gnu.org/bugzilla/show_bug.cgi?id=79540

--- Comment #13 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
> print '(f1.0)',    100.000000      ! => len=    1 *: no digits
> print '(f2.0)',    100.000000      ! => len=    0 : no digits
> print '(f3.0)',    100.000000      ! => len=    0 : no digits
> print '(f1.1)',    100.000000      ! => len=    1 *: no digits
> print '(f3.1)',    100.000000      ! => len=    0 : no digits

On darwin I get

 print '(f1.0)',    100.000000      ! => len=    1 *: no digits
 print '(f2.0)',    100.000000      ! => len=    2 **: no digits
 print '(f3.0)',    100.000000      ! => len=    3 ***: no digits
 print '(f1.1)',    100.000000      ! => len=    1 *: no digits
 print '(f2.1)',    100.000000      ! => len=    2 **: no digits
 print '(f3.1)',    100.000000      ! => len=    3 ***: no digits

What is the output of

print '(f3.1)',    100.000000
end

? If it not '***', it looks like a bug in your libraries?

Reply via email to