gcc/testsuite/gfortran.dg/unpack_vector_1.f90


1
2
3
4
5
6
7
8
9
10
11
12

! { dg-do compile }
! PR fortran/105813
! Fix checking of VECTOR argument to UNPACK when MASK is a variable.
! Contributed by G.Steinmetz

program p
  logical, parameter :: mask(2,2) = reshape ([.true.,  .true.,  &
                                              .false., .true.], &
                                              shape (mask))
  print *, unpack ([1,2,3], mask, 0) ! OK
  print *, unpack ([1,2],   mask, 0) ! { dg-error "must provide at least" }
end