org.eclipse.photran.core.vpg.tests/refactoring-test-code/infrastructure/reindenter/11-select-case.f90

program p !<<<<<START
read *, i
SELECT CASE (i)
CASE (1)
print *, "One"
CASE (2)
print *, "Two"
CASE (3)
print *, "Three"
CASE DEFAULT
print *, "Not one, two, or three"
END SELECT
end program !<<<<<END