blob: 96a813809a31cd781b7254d48866a68ab2958e7e [file]
pure real function dummy()
dummy = 4*atan(1.)
end function