Labeled case statements not formatted correctly

[sriram-LANL]

the following input:

  ! Fails: Labelled
  casetest:select case(i)
  case (1)
     write(*,*) 'nay'
  end select casetest

  ! Works: Not labelled
  select case(i)
  case (1)
     write(*,*) 'yay'
  end select

processed with python3 fprettify -i 4 test.F90 results in:

  ! Fails: Labelled
  casetest:select case(i)
  case (1)
  write (*, *) 'nay'
  end select casetest

  ! Works: Not labelled
  select case (i)
  case (1)
      write (*, *) 'yay'
  end select

Note that the first case statement is not correctly indented.

Incidentally labelled do statements work just fine!

PS: this is a great tool - thanks for making it available

[dbroemmel]

I think this is similar to #152 or #170. My suggested fix did however miss to fully fix the SELECT RANK|TYPE. Whichever is included would be an improvement, I guess?

[sriram-LANL]

@dbroemmel is the project still being actively developed?
We would very much like to have this (or MR152) in the main branch so that we don’t have to use a fork for full formatting.

[dbroemmel]

I'm not entirely sure, all I can go by is #127. I am currently using it off my fork as well.