diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/minloc_2.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/minloc_2.f90 | 82 |
1 files changed, 41 insertions, 41 deletions
diff --git a/gcc/testsuite/gfortran.dg/minloc_2.f90 b/gcc/testsuite/gfortran.dg/minloc_2.f90 index 7a659f786c9..cecb3de1a5e 100644 --- a/gcc/testsuite/gfortran.dg/minloc_2.f90 +++ b/gcc/testsuite/gfortran.dg/minloc_2.f90 @@ -9,114 +9,114 @@ allocate (c(3)) a(:) = 5 ia = minloc (a) - if (ia(1).ne.1) call abort + if (ia(1).ne.1) STOP 1 a(2) = h ia = minloc (a) - if (ia(1).ne.2) call abort + if (ia(1).ne.2) STOP 2 a(:) = huge(h) ia = minloc (a) - if (ia(1).ne.1) call abort + if (ia(1).ne.1) STOP 3 a(3) = huge(h) - 1 ia = minloc (a) - if (ia(1).ne.3) call abort + if (ia(1).ne.3) STOP 4 c(:) = 5 ia = minloc (c) - if (ia(1).ne.1) call abort + if (ia(1).ne.1) STOP 5 c(2) = h ia = minloc (c) - if (ia(1).ne.2) call abort + if (ia(1).ne.2) STOP 6 c(:) = huge(h) ia = minloc (c) - if (ia(1).ne.1) call abort + if (ia(1).ne.1) STOP 7 c(3) = huge(h) - 1 ia = minloc (c) - if (ia(1).ne.3) call abort + if (ia(1).ne.3) STOP 8 l = .false. l2(:) = .false. a(:) = 5 ia = minloc (a, mask = l) - if (ia(1).ne.0) call abort + if (ia(1).ne.0) STOP 9 ia = minloc (a, mask = l2) - if (ia(1).ne.0) call abort + if (ia(1).ne.0) STOP 10 a(2) = h ia = minloc (a, mask = l) - if (ia(1).ne.0) call abort + if (ia(1).ne.0) STOP 11 ia = minloc (a, mask = l2) - if (ia(1).ne.0) call abort + if (ia(1).ne.0) STOP 12 a(:) = huge(h) ia = minloc (a, mask = l) - if (ia(1).ne.0) call abort + if (ia(1).ne.0) STOP 13 ia = minloc (a, mask = l2) - if (ia(1).ne.0) call abort + if (ia(1).ne.0) STOP 14 a(3) = huge(h) - 1 ia = minloc (a, mask = l) - if (ia(1).ne.0) call abort + if (ia(1).ne.0) STOP 15 ia = minloc (a, mask = l2) - if (ia(1).ne.0) call abort + if (ia(1).ne.0) STOP 16 c(:) = 5 ia = minloc (c, mask = l) - if (ia(1).ne.0) call abort + if (ia(1).ne.0) STOP 17 ia = minloc (c, mask = l2) - if (ia(1).ne.0) call abort + if (ia(1).ne.0) STOP 18 c(2) = h ia = minloc (c, mask = l) - if (ia(1).ne.0) call abort + if (ia(1).ne.0) STOP 19 ia = minloc (c, mask = l2) - if (ia(1).ne.0) call abort + if (ia(1).ne.0) STOP 20 c(:) = huge(h) ia = minloc (c, mask = l) - if (ia(1).ne.0) call abort + if (ia(1).ne.0) STOP 21 ia = minloc (c, mask = l2) - if (ia(1).ne.0) call abort + if (ia(1).ne.0) STOP 22 c(3) = huge(h) - 1 ia = minloc (c, mask = l) - if (ia(1).ne.0) call abort + if (ia(1).ne.0) STOP 23 ia = minloc (c, mask = l2) - if (ia(1).ne.0) call abort + if (ia(1).ne.0) STOP 24 l = .true. l2(:) = .true. a(:) = 5 ia = minloc (a, mask = l) - if (ia(1).ne.1) call abort + if (ia(1).ne.1) STOP 25 ia = minloc (a, mask = l2) - if (ia(1).ne.1) call abort + if (ia(1).ne.1) STOP 26 a(2) = h ia = minloc (a, mask = l) - if (ia(1).ne.2) call abort + if (ia(1).ne.2) STOP 27 ia = minloc (a, mask = l2) - if (ia(1).ne.2) call abort + if (ia(1).ne.2) STOP 28 a(:) = huge(h) ia = minloc (a, mask = l) - if (ia(1).ne.1) call abort + if (ia(1).ne.1) STOP 29 ia = minloc (a, mask = l2) - if (ia(1).ne.1) call abort + if (ia(1).ne.1) STOP 30 a(3) = huge(h) - 1 ia = minloc (a, mask = l) - if (ia(1).ne.3) call abort + if (ia(1).ne.3) STOP 31 ia = minloc (a, mask = l2) - if (ia(1).ne.3) call abort + if (ia(1).ne.3) STOP 32 c(:) = 5 ia = minloc (c, mask = l) - if (ia(1).ne.1) call abort + if (ia(1).ne.1) STOP 33 ia = minloc (c, mask = l2) - if (ia(1).ne.1) call abort + if (ia(1).ne.1) STOP 34 c(2) = h ia = minloc (c, mask = l) - if (ia(1).ne.2) call abort + if (ia(1).ne.2) STOP 35 ia = minloc (c, mask = l2) - if (ia(1).ne.2) call abort + if (ia(1).ne.2) STOP 36 c(:) = huge(h) ia = minloc (c, mask = l) - if (ia(1).ne.1) call abort + if (ia(1).ne.1) STOP 37 ia = minloc (c, mask = l2) - if (ia(1).ne.1) call abort + if (ia(1).ne.1) STOP 38 c(3) = huge(h) - 1 ia = minloc (c, mask = l) - if (ia(1).ne.3) call abort + if (ia(1).ne.3) STOP 39 ia = minloc (c, mask = l2) - if (ia(1).ne.3) call abort + if (ia(1).ne.3) STOP 40 deallocate (c) allocate (c(-2:-3)) ia = minloc (c) - if (ia(1).ne.0) call abort + if (ia(1).ne.0) STOP 41 end |