Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/minloc_2.f90 @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line source
! { dg-do run } integer :: a(3), h, ia(1) integer, allocatable :: c(:) logical :: l logical :: l2(3) h = -huge(h) h = h - 1 allocate (c(3)) a(:) = 5 ia = minloc (a) if (ia(1).ne.1) STOP 1 a(2) = h ia = minloc (a) if (ia(1).ne.2) STOP 2 a(:) = huge(h) ia = minloc (a) if (ia(1).ne.1) STOP 3 a(3) = huge(h) - 1 ia = minloc (a) if (ia(1).ne.3) STOP 4 c(:) = 5 ia = minloc (c) if (ia(1).ne.1) STOP 5 c(2) = h ia = minloc (c) if (ia(1).ne.2) STOP 6 c(:) = huge(h) ia = minloc (c) if (ia(1).ne.1) STOP 7 c(3) = huge(h) - 1 ia = minloc (c) if (ia(1).ne.3) STOP 8 l = .false. l2(:) = .false. a(:) = 5 ia = minloc (a, mask = l) if (ia(1).ne.0) STOP 9 ia = minloc (a, mask = l2) if (ia(1).ne.0) STOP 10 a(2) = h ia = minloc (a, mask = l) if (ia(1).ne.0) STOP 11 ia = minloc (a, mask = l2) if (ia(1).ne.0) STOP 12 a(:) = huge(h) ia = minloc (a, mask = l) if (ia(1).ne.0) STOP 13 ia = minloc (a, mask = l2) if (ia(1).ne.0) STOP 14 a(3) = huge(h) - 1 ia = minloc (a, mask = l) if (ia(1).ne.0) STOP 15 ia = minloc (a, mask = l2) if (ia(1).ne.0) STOP 16 c(:) = 5 ia = minloc (c, mask = l) if (ia(1).ne.0) STOP 17 ia = minloc (c, mask = l2) if (ia(1).ne.0) STOP 18 c(2) = h ia = minloc (c, mask = l) if (ia(1).ne.0) STOP 19 ia = minloc (c, mask = l2) if (ia(1).ne.0) STOP 20 c(:) = huge(h) ia = minloc (c, mask = l) if (ia(1).ne.0) STOP 21 ia = minloc (c, mask = l2) if (ia(1).ne.0) STOP 22 c(3) = huge(h) - 1 ia = minloc (c, mask = l) if (ia(1).ne.0) STOP 23 ia = minloc (c, mask = l2) if (ia(1).ne.0) STOP 24 l = .true. l2(:) = .true. a(:) = 5 ia = minloc (a, mask = l) if (ia(1).ne.1) STOP 25 ia = minloc (a, mask = l2) if (ia(1).ne.1) STOP 26 a(2) = h ia = minloc (a, mask = l) if (ia(1).ne.2) STOP 27 ia = minloc (a, mask = l2) if (ia(1).ne.2) STOP 28 a(:) = huge(h) ia = minloc (a, mask = l) if (ia(1).ne.1) STOP 29 ia = minloc (a, mask = l2) if (ia(1).ne.1) STOP 30 a(3) = huge(h) - 1 ia = minloc (a, mask = l) if (ia(1).ne.3) STOP 31 ia = minloc (a, mask = l2) if (ia(1).ne.3) STOP 32 c(:) = 5 ia = minloc (c, mask = l) if (ia(1).ne.1) STOP 33 ia = minloc (c, mask = l2) if (ia(1).ne.1) STOP 34 c(2) = h ia = minloc (c, mask = l) if (ia(1).ne.2) STOP 35 ia = minloc (c, mask = l2) if (ia(1).ne.2) STOP 36 c(:) = huge(h) ia = minloc (c, mask = l) if (ia(1).ne.1) STOP 37 ia = minloc (c, mask = l2) if (ia(1).ne.1) STOP 38 c(3) = huge(h) - 1 ia = minloc (c, mask = l) if (ia(1).ne.3) STOP 39 ia = minloc (c, mask = l2) if (ia(1).ne.3) STOP 40 deallocate (c) allocate (c(-2:-3)) ia = minloc (c) if (ia(1).ne.0) STOP 41 end