bencch Public

Watch 0 Fork 0 Star 0

Fortran · 168 bytes Raw Blame History

  
        1
        module ops
      
        2
            implicit none
      
        3
        contains
      
        4
            integer function add_one(x)
      
        5
                integer, intent(in) :: x
      
        6
        
        7
                add_one = x + 1
      
        8
            end function add_one
      
        9
        end module ops
      
        10

1	module ops
2	implicit none
3	contains
4	integer function add_one(x)
5	integer, intent(in) :: x
6
7	add_one = x + 1
8	end function add_one
9	end module ops
10