gcc/testsuite/gfortran.dg/minloc_3.f90

   1 ! { dg-do run }
   2   real :: a(30), m
   3   real, allocatable :: c(:)
   4   integer :: e(30), n, ia(1)
   5   integer, allocatable :: g(:)
   6   logical :: l(30)
   7   allocate (c (30))
   8   allocate (g (30))
   9   a = 7.0
  10   c = 7.0
  11   e = 7
  12   g = 7
  13   m = huge(m)
  14   n = huge(n)
  15   a(7) = 6.0
  16   c(7) = 6.0
  17   e(7) = 6
  18   g(7) = 6
  19   ia = minloc (a)
  20   if (ia(1).ne.7) STOP 1
  21   ia = minloc (a(::2))
  22   if (ia(1).ne.4) STOP 2
  23   if (any (minloc (a).ne.(/ 7 /))) STOP 3
  24   if (any (minloc (a(::2)).ne.(/ 4 /))) STOP 4
  25   ia = minloc (c)
  26   if (ia(1).ne.7) STOP 5
  27   ia = minloc (c(::2))
  28   if (ia(1).ne.4) STOP 6
  29   if (any (minloc (c).ne.(/ 7 /))) STOP 7
  30   if (any (minloc (c(::2)).ne.(/ 4 /))) STOP 8
  31   ia = minloc (e)
  32   if (ia(1).ne.7) STOP 9
  33   ia = minloc (e(::2))
  34   if (ia(1).ne.4) STOP 10
  35   if (any (minloc (e).ne.(/ 7 /))) STOP 11
  36   if (any (minloc (e(::2)).ne.(/ 4 /))) STOP 12
  37   ia = minloc (g)
  38   if (ia(1).ne.7) STOP 13
  39   ia = minloc (g(::2))
  40   if (ia(1).ne.4) STOP 14
  41   if (any (minloc (g).ne.(/ 7 /))) STOP 15
  42   if (any (minloc (g(::2)).ne.(/ 4 /))) STOP 16
  43   l = .true.
  44   ia = minloc (a, mask = l)
  45   if (ia(1).ne.7) STOP 17
  46   ia = minloc (a(::2), mask = l(::2))
  47   if (ia(1).ne.4) STOP 18
  48   if (any (minloc (a, mask = l).ne.(/ 7 /))) STOP 19
  49   if (any (minloc (a(::2), mask = l(::2)).ne.(/ 4 /))) STOP 20
  50   ia = minloc (c, mask = l)
  51   if (ia(1).ne.7) STOP 21
  52   ia = minloc (c(::2), mask = l(::2))
  53   if (ia(1).ne.4) STOP 22
  54   if (any (minloc (c, mask = l).ne.(/ 7 /))) STOP 23
  55   if (any (minloc (c(::2), mask = l(::2)).ne.(/ 4 /))) STOP 24
  56   ia = minloc (e, mask = l)
  57   if (ia(1).ne.7) STOP 25
  58   ia = minloc (e(::2), mask = l(::2))
  59   if (ia(1).ne.4) STOP 26
  60   if (any (minloc (e, mask = l).ne.(/ 7 /))) STOP 27
  61   if (any (minloc (e(::2), mask = l(::2)).ne.(/ 4 /))) STOP 28
  62   ia = minloc (g, mask = l)
  63   if (ia(1).ne.7) STOP 29
  64   ia = minloc (g(::2), mask = l(::2))
  65   if (ia(1).ne.4) STOP 30
  66   if (any (minloc (g, mask = l).ne.(/ 7 /))) STOP 31
  67   if (any (minloc (g(::2), mask = l(::2)).ne.(/ 4 /))) STOP 32
  68   l = .false.
  69   ia = minloc (a, mask = l)
  70   if (ia(1).ne.0) STOP 33
  71   ia = minloc (a(::2), mask = l(::2))
  72   if (ia(1).ne.0) STOP 34
  73   if (any (minloc (a, mask = l).ne.(/ 0 /))) STOP 35
  74   if (any (minloc (a(::2), mask = l(::2)).ne.(/ 0 /))) STOP 36
  75   ia = minloc (c, mask = l)
  76   if (ia(1).ne.0) STOP 37
  77   ia = minloc (c(::2), mask = l(::2))
  78   if (ia(1).ne.0) STOP 38
  79   if (any (minloc (c, mask = l).ne.(/ 0 /))) STOP 39
  80   if (any (minloc (c(::2), mask = l(::2)).ne.(/ 0 /))) STOP 40
  81   ia = minloc (e, mask = l)
  82   if (ia(1).ne.0) STOP 41
  83   ia = minloc (e(::2), mask = l(::2))
  84   if (ia(1).ne.0) STOP 42
  85   if (any (minloc (e, mask = l).ne.(/ 0 /))) STOP 43
  86   if (any (minloc (e(::2), mask = l(::2)).ne.(/ 0 /))) STOP 44
  87   ia = minloc (g, mask = l)
  88   if (ia(1).ne.0) STOP 45
  89   ia = minloc (g(::2), mask = l(::2))
  90   if (ia(1).ne.0) STOP 46
  91   if (any (minloc (g, mask = l).ne.(/ 0 /))) STOP 47
  92   if (any (minloc (g(::2), mask = l(::2)).ne.(/ 0 /))) STOP 48
  93   a = 7.0
  94   c = 7.0
  95 end