gcc/testsuite/gfortran.dg/unpack_mask_1.f90

   1 ! { dg-do run }
   2 ! PR 32731 - upack lacked conversion for kind=1 and kind=2 mask
   3 program 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)
  12 end program main