Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/gfortran.dg/intrinsic_pack_3.f90 @ 111:04ced10e8804

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children 84e7813d76e9
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
111
kono
parents:
diff changeset
1 ! { dg-do run }
kono
parents:
diff changeset
2 ! { dg-require-effective-target fortran_large_int }
kono
parents:
diff changeset
3 ! Take the pack intrinsic through its paces, with all types that are
kono
parents:
diff changeset
4 ! normally accessible.
kono
parents:
diff changeset
5 program main
kono
parents:
diff changeset
6 implicit none
kono
parents:
diff changeset
7 integer,parameter :: k = selected_int_kind (range (0_8) + 1)
kono
parents:
diff changeset
8 integer :: i
kono
parents:
diff changeset
9 integer(kind=k), dimension(3,3) :: ik
kono
parents:
diff changeset
10 integer(kind=k), dimension(9) :: vik
kono
parents:
diff changeset
11 integer(kind=k), dimension(9) :: rik
kono
parents:
diff changeset
12
kono
parents:
diff changeset
13 vik = (/(i+10,i=1,9)/)
kono
parents:
diff changeset
14 ik = reshape((/1_k, -1_k, 2_k, -2_k, 3_k, -3_k, 4_k, -4_k, 5_k/), shape(ik))
kono
parents:
diff changeset
15 rik = pack(ik,ik>0,vik)
kono
parents:
diff changeset
16 if (any(rik /= (/1_k, 2_k, 3_k, 4_k, 5_k, 16_k, 17_k, 18_k, 19_k/))) &
kono
parents:
diff changeset
17 & call abort
kono
parents:
diff changeset
18
kono
parents:
diff changeset
19
kono
parents:
diff changeset
20 end program main