1! { dg-do run } 2! PR 32731 - upack lacked conversion for kind=1 and kind=2 mask 3program main 4 implicit none 5 character(len=80) line 6 logical(kind=1),dimension(2,2) :: mask1 7 logical(kind=1),dimension(2,2) :: mask2 8 mask1 = .true. 9 mask2 = .true. 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) 12end program main 13