module a
contains
C subroutine wrong
subroutine RIGHT
real ChangeMe
end subroutine RIGHT
end module a