case feature not working for specifier of `intent`

[JHenneberg]

trafficstars

-i 2 --case 1 1 1 1

before:

module myModule
  implicit none
  private
contains
  subroutine MySubroutine(int)
    implicit none

    integer(4), INTENT(IN) :: int

  end subroutine MySubroutine
end module myModule

after:

module myModule
  implicit none
  private
contains
  subroutine MySubroutine(int)
    implicit none

    integer(4), intent(IN) :: int

  end subroutine MySubroutine
end module myModule

expected:

module myModule
  implicit none
  private
contains
  subroutine MySubroutine(int)
    implicit none

    integer(4), intent(in) :: int

  end subroutine MySubroutine
end module myModule

The keyword intent is taken care of but not of the corresponding specifier in, inout or out concerning upper-/lower case.