Nodes of different colours represent the following:
Solid arrows point from a file to a file which depends upon it. A file is dependent upon another if the latter must be compiled before the former can be.
program volatile_doctest use befor64_pack_data_m use befor64 use penf integer(I2P) :: a1(1) integer(I1P) :: a2(1) integer(I1P), allocatable :: pack(:) a1(1) = 0 a2(1) = 1 call pack_data(a1=a1, a2=a2, packed=pack) print *, pack(3) endprogram volatile_doctest