Данная программа компилируется с ошибкой. Какие варианты изменений в программе можно выполнить, чтобы из головной программы вызвать процедуру init из модуля A module mod_A contains subroutine init write(*,*) "Initializing A" end subroutine initend module mod_Amodule mod_B contains subroutine init write(*,*) "Initializing B" end subroutine initend module mod_BPROGRAM prog use mod_A use mod_B implicit none call init() ! вызываем процедуру из модуля Aend
(Ответ считается верным, если отмечены все правильные варианты ответов.)
Варианты ответа
в модуле A указать private init
в модуле B указать private init(Верный ответ)
в головной программе записать use mod_B, only :(Верный ответ)
закомментировать use mod_A
в модуле A указать public A
в головной программе записать use mod_A, A => init