org.eclipse.photran.core.vpg.tests/refactoring-test-code/rename/bug278103-mod.f90

MODULE Mod1

    INTEGER, PARAMETER :: DIM = 5 ! 3,27

    CONTAINS

        SUBROUTINE PrintDim

            print *,'DIM IS:'

            print *, DIM ! 11,22

        END SUBROUTINE PrintDim

END MODULE Mod1