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