1 2 3 4 5 6 7 8 9 10 11
module lib implicit none contains pure real function func() func = 1.0 end function end module