2 ! PR 32731 - upack lacked conversion for kind=1 and kind=2 mask
6 logical(kind
=1),dimension(2,2) :: mask1
7 logical(kind
=1),dimension(2,2) :: mask2
10 write(unit
=line
,fmt
='(4I4)') unpack((/1,2,3,4/),mask1
,0)
11 write(unit
=line
,fmt
='(4I4)') unpack((/1,2,3,4/),mask2
,0)