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