module a

      contains

* subroutine wrong
      subroutine RIGHT
* subroutine wrong

      real ChangeMe

      end subroutine RIGHT

      end module a