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