Print string and formatted variable

Question

Consider the following program

program foo
    implicit none
    real :: pi
    pi = 3.1415923
    print*, "The value of pi is", pi
end program foo

This gives the output as

The value of pi is 3.1415923

But I want the variable to be displayed only up to 2 decimal places, so I tried

print'(f4.2)', "The value of pi is", pi

This throws me an error.

Fortran runtime error: Expected REAL for item 1 in formatted transfer, got CHARACTER                                                                                                                                       
(f4.2)

How do I achieve the following output

The value of pi is 3.14

It is always good to show the error and not just write "an error". If you want your self-answered question to be helpful to others you want them to be able to search for the error message. — Vladimir F Героям слава
– Vladimir F Героям слава, Commented Mar 5, 2017 at 13:56

Rhinocerotidae · Accepted Answer · 2017-03-06 06:02:26Z

3

I achieved the desired output with the following

write(*,"(A)",advance="no") "The value of pi is " 
write(*,'(f4.2)') pi

or with print as (thanks to high performance Mark)

print'(a,f5.2)', "The value of pi is", pi

edited Mar 6, 2017 at 6:02

answered Mar 5, 2017 at 5:32

Rhinocerotidae

9251 gold badge11 silver badges26 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

High Performance Mark Over a year ago

Or write(*,'(a,f4.2)') "The value of pi is ", pi

Collectives™ on Stack Overflow

Print string and formatted variable

1 Answer 1

1 Comment

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

1 Comment

Your Answer

Sign up or log in

Post as a guest

Related