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