Данная программа компилируется с ошибкой. Какие варианты изменений в программе можно выполнить, чтобы из головной программы вызвать процедуру 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 указать protected init
в головной программе записать use mod_B, only :(Верный ответ)
в головной программе записать use mod_B, init_B => init (Верный ответ)
в головной программе записать use mod_A, init_A => init
в модуле A указать public A
в модуле B указать private init(Верный ответ)