org.eclipse.photran.core.vpg.tests/refactoring-test-code/extract-procedure/test08-charlen.f90 - ptp/org.eclipse.photran - Git at Google

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