gcc/testsuite/gfortran.dg/maxlocval_2.f90

   1 ! { dg-do run }
   2 ! { dg-add-options ieee }
   3 ! { dg-skip-if "NaN not supported" { spu-*-* } }
   4   real :: a(3), nan, minf, pinf
   5   real, allocatable :: c(:)
   6   logical :: l
   7   logical :: l2(3)
   8
   9   nan = 0.0
  10   minf = 0.0
  11   pinf = 0.0
  12   nan = 0.0/nan
  13   minf = -1.0/minf
  14   pinf = 1.0/pinf
  15
  16   allocate (c(3))
  17   a(:) = nan
  18   if (maxloc (a, dim = 1).ne.1) STOP 1
  19   if (.not.isnan(maxval (a, dim = 1))) STOP 2
  20   a(:) = minf
  21   if (maxloc (a, dim = 1).ne.1) STOP 3
  22   if (maxval (a, dim = 1).ne.minf) STOP 4
  23   a(1:2) = nan
  24   if (maxloc (a, dim = 1).ne.3) STOP 5
  25   if (maxval (a, dim = 1).ne.minf) STOP 6
  26   a(2) = 1.0
  27   if (maxloc (a, dim = 1).ne.2) STOP 7
  28   if (maxval (a, dim = 1).ne.1) STOP 8
  29   a(2) = pinf
  30   if (maxloc (a, dim = 1).ne.2) STOP 9
  31   if (maxval (a, dim = 1).ne.pinf) STOP 10
  32   c(:) = nan
  33   if (maxloc (c, dim = 1).ne.1) STOP 11
  34   if (.not.isnan(maxval (c, dim = 1))) STOP 12
  35   c(:) = minf
  36   if (maxloc (c, dim = 1).ne.1) STOP 13
  37   if (maxval (c, dim = 1).ne.minf) STOP 14
  38   c(1:2) = nan
  39   if (maxloc (c, dim = 1).ne.3) STOP 15
  40   if (maxval (c, dim = 1).ne.minf) STOP 16
  41   c(2) = 1.0
  42   if (maxloc (c, dim = 1).ne.2) STOP 17
  43   if (maxval (c, dim = 1).ne.1) STOP 18
  44   c(2) = pinf
  45   if (maxloc (c, dim = 1).ne.2) STOP 19
  46   if (maxval (c, dim = 1).ne.pinf) STOP 20
  47   l = .false.
  48   l2(:) = .false.
  49   a(:) = nan
  50   if (maxloc (a, dim = 1, mask = l).ne.0) STOP 21
  51   if (maxval (a, dim = 1, mask = l).ne.-huge(minf)) STOP 22
  52   if (maxloc (a, dim = 1, mask = l2).ne.0) STOP 23
  53   if (maxval (a, dim = 1, mask = l2).ne.-huge(minf)) STOP 24
  54   a(:) = minf
  55   if (maxloc (a, dim = 1, mask = l).ne.0) STOP 25
  56   if (maxval (a, dim = 1, mask = l).ne.-huge(minf)) STOP 26
  57   if (maxloc (a, dim = 1, mask = l2).ne.0) STOP 27
  58   if (maxval (a, dim = 1, mask = l2).ne.-huge(minf)) STOP 28
  59   a(1:2) = nan
  60   if (maxloc (a, dim = 1, mask = l).ne.0) STOP 29
  61   if (maxval (a, dim = 1, mask = l).ne.-huge(minf)) STOP 30
  62   if (maxloc (a, dim = 1, mask = l2).ne.0) STOP 31
  63   if (maxval (a, dim = 1, mask = l2).ne.-huge(minf)) STOP 32
  64   a(2) = 1.0
  65   if (maxloc (a, dim = 1, mask = l).ne.0) STOP 33
  66   if (maxval (a, dim = 1, mask = l).ne.-huge(minf)) STOP 34
  67   if (maxloc (a, dim = 1, mask = l2).ne.0) STOP 35
  68   if (maxval (a, dim = 1, mask = l2).ne.-huge(minf)) STOP 36
  69   a(2) = pinf
  70   if (maxloc (a, dim = 1, mask = l).ne.0) STOP 37
  71   if (maxval (a, dim = 1, mask = l).ne.-huge(minf)) STOP 38
  72   if (maxloc (a, dim = 1, mask = l2).ne.0) STOP 39
  73   if (maxval (a, dim = 1, mask = l2).ne.-huge(minf)) STOP 40
  74   c(:) = nan
  75   if (maxloc (c, dim = 1, mask = l).ne.0) STOP 41
  76   if (maxval (c, dim = 1, mask = l).ne.-huge(minf)) STOP 42
  77   if (maxloc (c, dim = 1, mask = l2).ne.0) STOP 43
  78   if (maxval (c, dim = 1, mask = l2).ne.-huge(minf)) STOP 44
  79   c(:) = minf
  80   if (maxloc (c, dim = 1, mask = l).ne.0) STOP 45
  81   if (maxval (c, dim = 1, mask = l).ne.-huge(minf)) STOP 46
  82   if (maxloc (c, dim = 1, mask = l2).ne.0) STOP 47
  83   if (maxval (c, dim = 1, mask = l2).ne.-huge(minf)) STOP 48
  84   c(1:2) = nan
  85   if (maxloc (c, dim = 1, mask = l).ne.0) STOP 49
  86   if (maxval (c, dim = 1, mask = l).ne.-huge(minf)) STOP 50
  87   if (maxloc (c, dim = 1, mask = l2).ne.0) STOP 51
  88   if (maxval (c, dim = 1, mask = l2).ne.-huge(minf)) STOP 52
  89   c(2) = 1.0
  90   if (maxloc (c, dim = 1, mask = l).ne.0) STOP 53
  91   if (maxval (c, dim = 1, mask = l).ne.-huge(minf)) STOP 54
  92   if (maxloc (c, dim = 1, mask = l2).ne.0) STOP 55
  93   if (maxval (c, dim = 1, mask = l2).ne.-huge(minf)) STOP 56
  94   c(2) = pinf
  95   if (maxloc (c, dim = 1, mask = l).ne.0) STOP 57
  96   if (maxval (c, dim = 1, mask = l).ne.-huge(minf)) STOP 58
  97   if (maxloc (c, dim = 1, mask = l2).ne.0) STOP 59
  98   if (maxval (c, dim = 1, mask = l2).ne.-huge(minf)) STOP 60
  99   l = .true.
 100   l2(:) = .true.
 101   a(:) = nan
 102   if (maxloc (a, dim = 1, mask = l).ne.1) STOP 61
 103   if (.not.isnan(maxval (a, dim = 1, mask = l))) STOP 62
 104   if (maxloc (a, dim = 1, mask = l2).ne.1) STOP 63
 105   if (.not.isnan(maxval (a, dim = 1, mask = l2))) STOP 64
 106   a(:) = minf
 107   if (maxloc (a, dim = 1, mask = l).ne.1) STOP 65
 108   if (maxval (a, dim = 1, mask = l).ne.minf) STOP 66
 109   if (maxloc (a, dim = 1, mask = l2).ne.1) STOP 67
 110   if (maxval (a, dim = 1, mask = l2).ne.minf) STOP 68
 111   a(1:2) = nan
 112   if (maxloc (a, dim = 1, mask = l).ne.3) STOP 69
 113   if (maxval (a, dim = 1, mask = l).ne.minf) STOP 70
 114   if (maxloc (a, dim = 1, mask = l2).ne.3) STOP 71
 115   if (maxval (a, dim = 1, mask = l2).ne.minf) STOP 72
 116   a(2) = 1.0
 117   if (maxloc (a, dim = 1, mask = l).ne.2) STOP 73
 118   if (maxval (a, dim = 1, mask = l).ne.1) STOP 74
 119   if (maxloc (a, dim = 1, mask = l2).ne.2) STOP 75
 120   if (maxval (a, dim = 1, mask = l2).ne.1) STOP 76
 121   a(2) = pinf
 122   if (maxloc (a, dim = 1, mask = l).ne.2) STOP 77
 123   if (maxval (a, dim = 1, mask = l).ne.pinf) STOP 78
 124   if (maxloc (a, dim = 1, mask = l2).ne.2) STOP 79
 125   if (maxval (a, dim = 1, mask = l2).ne.pinf) STOP 80
 126   c(:) = nan
 127   if (maxloc (c, dim = 1, mask = l).ne.1) STOP 81
 128   if (.not.isnan(maxval (c, dim = 1, mask = l))) STOP 82
 129   if (maxloc (c, dim = 1, mask = l2).ne.1) STOP 83
 130   if (.not.isnan(maxval (c, dim = 1, mask = l2))) STOP 84
 131   c(:) = minf
 132   if (maxloc (c, dim = 1, mask = l).ne.1) STOP 85
 133   if (maxval (c, dim = 1, mask = l).ne.minf) STOP 86
 134   if (maxloc (c, dim = 1, mask = l2).ne.1) STOP 87
 135   if (maxval (c, dim = 1, mask = l2).ne.minf) STOP 88
 136   c(1:2) = nan
 137   if (maxloc (c, dim = 1, mask = l).ne.3) STOP 89
 138   if (maxval (c, dim = 1, mask = l).ne.minf) STOP 90
 139   if (maxloc (c, dim = 1, mask = l2).ne.3) STOP 91
 140   if (maxval (c, dim = 1, mask = l2).ne.minf) STOP 92
 141   c(2) = 1.0
 142   if (maxloc (c, dim = 1, mask = l).ne.2) STOP 93
 143   if (maxval (c, dim = 1, mask = l).ne.1) STOP 94
 144   if (maxloc (c, dim = 1, mask = l2).ne.2) STOP 95
 145   if (maxval (c, dim = 1, mask = l2).ne.1) STOP 96
 146   c(2) = pinf
 147   if (maxloc (c, dim = 1, mask = l).ne.2) STOP 97
 148   if (maxval (c, dim = 1, mask = l).ne.pinf) STOP 98
 149   if (maxloc (c, dim = 1, mask = l2).ne.2) STOP 99
 150   if (maxval (c, dim = 1, mask = l2).ne.pinf) STOP 100
 151   deallocate (c)
 152   allocate (c(-2:-3))
 153   if (maxloc (c, dim = 1).ne.0) STOP 101
 154   if (maxval (c, dim = 1).ne.-huge(minf)) STOP 102
 155 end