1 module a 2 3 contains 4 5 ! subroutine wrong 6 subroutine RIGHT 7 ! subroutine wrong 8 9 real ChangeMe 10 11 end subroutine RIGHT 12 13 end module a