Description Erik Toussaint 2010-05-18 10:43:43 EDT

When refactoring, the Extract Procedure action omits a length specifier for character dummy arguments of the new procedure, giving them an implicit length of one.

Consider the following example code:

program refactor
    implicit none
    character(3) :: charvar
    charvar = 'abc'
    print *, charvar
end program refactor

This prints the string 'abc'.
Now select the line with the print statement and click 'Refactor > Extract Procedure...'. Complete the dialog and you'll end up with the following:

program refactor
    implicit none
    character(3) :: charvar
    charvar = 'abc'
    call printcharvar(charvar)
contains

    subroutine printcharvar(charvar)
        implicit none
        character :: charvar
        print *, charvar
    end subroutine

end program refactor

As you can see, the subroutine has a dummy character argument with length one. So it only prints the first character, instead of all three.