Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Jump to bottom

Replace end with end subroutine foo, end function foo, end program foo, end module foo as appropriate #111

Open
Beliavsky opened this issue Nov 4, 2024 · 1 comment · May be fixed by #112
Open

Replace end with end subroutine foo, end function foo, end program foo, end module foo as appropriate #111

Beliavsky opened this issue Nov 4, 2024 · 1 comment · May be fixed by #112

Comments

@Beliavsky
Copy link

I would like a bare end statement at the end of a subroutine, function, program, or module to be replaced by a statement with end followed by the name. For example, the linter leaves the code

module m
    implicit none
contains
    real function twice(x)
        real, intent(in) :: x
        twice = 2 * x
    end

    subroutine sub(x, y)
        implicit none
        real, intent(in) :: x
        real, intent(out) :: y
        y = 2 * x + 4.5
    end
end

program main
use m
implicit none
real :: x, y
x = 10.0
call sub(x, y)
print *, y
print *, twice(y)
end

I would like it to be changed to

module m
    implicit none
contains
    real function twice(x)
        real, intent(in) :: x
        twice = 2 * x
    end function twice

    subroutine sub(x, y)
        implicit none
        real, intent(in) :: x
        real, intent(out) :: y
        y = 2 * x + 4.5
    end subroutine sub
end module m

program main
use m
implicit none
real :: x, y
x = 10.0
call sub(x, y)
print *, y
print *, twice(y)
end program main
@cphyc cphyc linked a pull request Nov 4, 2024 that will close this issue
Open
@cphyc
Copy link
Owner

cphyc commented Nov 4, 2024

Can you try the content of #112?

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Assignees
No one assigned
Labels
None yet
Projects
None yet
Milestone
No milestone
Development

Successfully merging a pull request may close this issue.

Match open/close statements and format them cphyc/fortran-linter
2 participants
@cphyc @Beliavsky