blob: ef0f5c721c218275b9f4bb539f348028316362d3 [file] [log] [blame]
PROGRAM MyProgram
USE Mod1
IMPLICIT NONE
INTEGER :: local_array(3)
module_array(1) = 1 ! 5,5
local_array(module_array(2)) = 1 ! 6,17
END PROGRAM MyProgram