2023-12-02 20:55:34 +01:00

4 lines
59 B
Fortran

pure real function dummy()
dummy = 4*atan(1.)
end function