Подключение модуля пишется как use m1 (без module), программа должна завершаться либо как enf program main, либо просто end, но не так, как у Вас.Кроме этого, такое определение глобальных переменных в некотором смысле избыточно. Если у Вас все состоит из основной программы и contains в том же файле, то можно не делать отдельный модуль и объявить переменную i прямо в заголовке программы. Отдельный модуль необходим тогда, когда Вы используете много процедур и функций, находящихся в разных модулях и файлах.
Ну и заодно один совет. Если Вы хотите пользоваться глобальными переменными - обязательно вставляйте в заголовки всех программ, функций и процедур implicit none (или хотя бы отключайте неявное объявление переменных ключами компиляции). Это и в других случаях не помешает, но тут просто необходимо, иначе Вы замучаетесь с выяснением того, какой является та или иная переменная - глобальной или локальной, но "объявившейся" неявно.
Например, если в Вашем примере в модуле сделать i переменной типа real, то возникнет интересный казус. Если модуль подключен, то i везде будет типа real. Но если Вы почему-то забудете подключить модуль, то основной файл все равно скомпилируется, но i уже будет типа integer (из-за неявного объявления).