4 lines
59 B
Fortran
Raw Normal View History

2023-12-02 20:55:34 +01:00
pure real function dummy()
dummy = 4*atan(1.)
end function