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.

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

Bug: end procedure in submodule not indented #7

Closed
gnikit opened this issue Oct 4, 2021 · 1 comment
Closed

Bug: end procedure in submodule not indented #7

gnikit opened this issue Oct 4, 2021 · 1 comment

Comments

@gnikit
Copy link

gnikit commented Oct 4, 2021

I stumbled onto this where the end procedure name is not indented. Same goes for the contents of the procedure.

MWE

start with

submodule( foo_module) submodule1
implicit none
contains
module procedure foo1
  WRITE(*,"(A)") "testing :: "// trim(a) // "::"// trim(b)
end procedure foo1
end submodule submodule1

expected output is

submodule( foo_module) submodule1
   implicit none
contains
   module procedure foo1
      WRITE(*,"(A)") "testing :: "// trim(a) // "::"// trim(b)
   end procedure foo1
end submodule submodule1

findent output (v4.1.2.pre11) is

submodule( foo_module) submodule1
   implicit none
contains
   module procedure foo1
   WRITE(*,"(A)") "testing :: "// trim(a) // "::"// trim(b)
end procedure foo1
end submodule submodule1

Something else I spotted which might be worth opening a separate issue for is that if you run -Rr or -RR it relabels to the wrong name. Am I doing something wrong here?

submodule( foo_module) submodule1
   implicit none
contains
   module procedure foo1
   WRITE(*,"(A)") "testing :: "// trim(a) // "::"// trim(b)
end submodule submodule1
end submodule submodule1
@gnikit gnikit changed the title Bug: end procedure not indented Bug: end procedure in submodule not indented Oct 4, 2021
@gnikit
Copy link
Author

gnikit commented Oct 5, 2021

Fixed in version 4.1.2.pre~12

@gnikit gnikit closed this as completed Oct 5, 2021
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Labels
None yet
Projects
None yet
Development

No branches or pull requests

1 participant