Skip to main content

Fortran

Status

Beta

Versions

  • f2008 with GFortran 9 (-std=f2008 -fall-intrinsics)

Test Frameworks

Codewars Test Framework (CW2)

NOTE: Unlike other Codewars test frameworks, assertions take expected value first.

module Solution
implicit none
contains
  function add(a, b)
    integer(kind=4),intent(in)::a
    integer(kind=4),intent(in)::b
    integer(kind=4)::add
    add = a + b
  end function
end module
module Solution
implicit none
contains
  function add(a, b)
    integer(kind=4),intent(in)::a
    integer(kind=4),intent(in)::b
    integer(kind=4)::add
    add = a + b
  end function
end module
program TestCases
  use CW2
  use Solution
implicit none
  call assertEquals(2, add(1, 1))
end program
program TestCases
  use CW2
  use Solution
implicit none
  call assertEquals(2, add(1, 1))
end program

Module names can be anything valid. Preloaded can be used to add another module.

Using describe and it:

program TestCases
  use CW2
  use Solution
implicit none
  call describe("add")
    call it("adds integers")
      call assertEquals(2, add(1, 1))
    call endContext()
  call endContext()
end program
program TestCases
  use CW2
  use Solution
implicit none
  call describe("add")
    call it("adds integers")
      call assertEquals(2, add(1, 1))
    call endContext()
  call endContext()
end program

Timeout

12 seconds

Packages

None

Services

None

Language ID

fortran