module a
contains
subroutine RIGHT (funcA, funcB)
real funcA ! grid function a
real funcB ! grid function b
real ChangeMe
integer broken
end subroutine RIGHT
end module a