OSDN Git Service

2007-07-14 Thomas Koenig <tkoenig@gcc.gnu.org>
[pf3gnuchains/gcc-fork.git] / 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