Mercurial > hg > CbC > CbC_gcc

view gcc/testsuite/gfortran.dg/unpack_mask_1.f90 @ 145:1830386684a0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-9.2.0
author anatofuz
date Thu, 13 Feb 2020 11:34:05 +0900
parents 04ced10e8804
children
line wrap: on
line source

! { dg-do run }
! PR 32731 - upack lacked conversion for kind=1 and kind=2 mask
program main
  implicit none
  character(len=80) line
  logical(kind=1),dimension(2,2) :: mask1
  logical(kind=1),dimension(2,2) :: mask2
  mask1 = .true.
  mask2 = .true.
  write(unit=line,fmt='(4I4)') unpack((/1,2,3,4/),mask1,0)
  write(unit=line,fmt='(4I4)') unpack((/1,2,3,4/),mask2,0)
end program main