blob: 7ca4791be51670d34e2af99047f45ba787b985c0 [file] [log] [blame] [raw]
! Type your code here, or load an example.
integer function square(x)
implicit none
integer, intent(in) :: x
square = x * x
end function square