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