Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/minloc_3.f90 @ 118:fd00160c1b76
ifdef TARGET_64BIT
author | mir3636 |
---|---|
date | Tue, 27 Feb 2018 15:01:35 +0900 |
parents | 04ced10e8804 |
children | 84e7813d76e9 |
line wrap: on
line source
! { dg-do run } real :: a(30), m real, allocatable :: c(:) integer :: e(30), n, ia(1) integer, allocatable :: g(:) logical :: l(30) allocate (c (30)) allocate (g (30)) a = 7.0 c = 7.0 e = 7 g = 7 m = huge(m) n = huge(n) a(7) = 6.0 c(7) = 6.0 e(7) = 6 g(7) = 6 ia = minloc (a) if (ia(1).ne.7) call abort ia = minloc (a(::2)) if (ia(1).ne.4) call abort if (any (minloc (a).ne.(/ 7 /))) call abort if (any (minloc (a(::2)).ne.(/ 4 /))) call abort ia = minloc (c) if (ia(1).ne.7) call abort ia = minloc (c(::2)) if (ia(1).ne.4) call abort if (any (minloc (c).ne.(/ 7 /))) call abort if (any (minloc (c(::2)).ne.(/ 4 /))) call abort ia = minloc (e) if (ia(1).ne.7) call abort ia = minloc (e(::2)) if (ia(1).ne.4) call abort if (any (minloc (e).ne.(/ 7 /))) call abort if (any (minloc (e(::2)).ne.(/ 4 /))) call abort ia = minloc (g) if (ia(1).ne.7) call abort ia = minloc (g(::2)) if (ia(1).ne.4) call abort if (any (minloc (g).ne.(/ 7 /))) call abort if (any (minloc (g(::2)).ne.(/ 4 /))) call abort l = .true. ia = minloc (a, mask = l) if (ia(1).ne.7) call abort ia = minloc (a(::2), mask = l(::2)) if (ia(1).ne.4) call abort if (any (minloc (a, mask = l).ne.(/ 7 /))) call abort if (any (minloc (a(::2), mask = l(::2)).ne.(/ 4 /))) call abort ia = minloc (c, mask = l) if (ia(1).ne.7) call abort ia = minloc (c(::2), mask = l(::2)) if (ia(1).ne.4) call abort if (any (minloc (c, mask = l).ne.(/ 7 /))) call abort if (any (minloc (c(::2), mask = l(::2)).ne.(/ 4 /))) call abort ia = minloc (e, mask = l) if (ia(1).ne.7) call abort ia = minloc (e(::2), mask = l(::2)) if (ia(1).ne.4) call abort if (any (minloc (e, mask = l).ne.(/ 7 /))) call abort if (any (minloc (e(::2), mask = l(::2)).ne.(/ 4 /))) call abort ia = minloc (g, mask = l) if (ia(1).ne.7) call abort ia = minloc (g(::2), mask = l(::2)) if (ia(1).ne.4) call abort if (any (minloc (g, mask = l).ne.(/ 7 /))) call abort if (any (minloc (g(::2), mask = l(::2)).ne.(/ 4 /))) call abort l = .false. ia = minloc (a, mask = l) if (ia(1).ne.0) call abort ia = minloc (a(::2), mask = l(::2)) if (ia(1).ne.0) call abort if (any (minloc (a, mask = l).ne.(/ 0 /))) call abort if (any (minloc (a(::2), mask = l(::2)).ne.(/ 0 /))) call abort ia = minloc (c, mask = l) if (ia(1).ne.0) call abort ia = minloc (c(::2), mask = l(::2)) if (ia(1).ne.0) call abort if (any (minloc (c, mask = l).ne.(/ 0 /))) call abort if (any (minloc (c(::2), mask = l(::2)).ne.(/ 0 /))) call abort ia = minloc (e, mask = l) if (ia(1).ne.0) call abort ia = minloc (e(::2), mask = l(::2)) if (ia(1).ne.0) call abort if (any (minloc (e, mask = l).ne.(/ 0 /))) call abort if (any (minloc (e(::2), mask = l(::2)).ne.(/ 0 /))) call abort ia = minloc (g, mask = l) if (ia(1).ne.0) call abort ia = minloc (g(::2), mask = l(::2)) if (ia(1).ne.0) call abort if (any (minloc (g, mask = l).ne.(/ 0 /))) call abort if (any (minloc (g(::2), mask = l(::2)).ne.(/ 0 /))) call abort a = 7.0 c = 7.0 end