UNPACK (The GNU Fortran Compiler) (original) (raw)

PROGRAM test_unpack integer :: vector(2) = (/1,1/) logical :: mask(4) = (/ .TRUE., .FALSE., .FALSE., .TRUE. /) integer :: field(2,2) = 0, unity(2,2)

! result: unity matrix unity = unpack(vector, reshape(mask, (/2,2/)), field) END PROGRAM