diff options
Diffstat (limited to 'gcc-4.9/gcc/testsuite/gfortran.dg/minloc_3.f90')
-rw-r--r-- | gcc-4.9/gcc/testsuite/gfortran.dg/minloc_3.f90 | 95 |
1 files changed, 95 insertions, 0 deletions
diff --git a/gcc-4.9/gcc/testsuite/gfortran.dg/minloc_3.f90 b/gcc-4.9/gcc/testsuite/gfortran.dg/minloc_3.f90 new file mode 100644 index 000000000..465c77c99 --- /dev/null +++ b/gcc-4.9/gcc/testsuite/gfortran.dg/minloc_3.f90 @@ -0,0 +1,95 @@ +! { 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 |