blob: c9f2bb11062b8ce7750ccb384ff5c4a3d8646a0a [file] [log] [blame]
module mod
implicit none
integer, dimension(:), allocatable :: array !3,27,5
end module
program encap1
use mod
implicit none
allocate (array(5))
array = (/ 10, 20, 30, 40, 50 /)
print *, array
deallocate (array)
end program encap1