diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/parameter_array_init_2.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/parameter_array_init_2.f90 | 32 |
1 files changed, 16 insertions, 16 deletions
diff --git a/gcc/testsuite/gfortran.dg/parameter_array_init_2.f90 b/gcc/testsuite/gfortran.dg/parameter_array_init_2.f90 index bf238e5ee32..ab6409dd400 100644 --- a/gcc/testsuite/gfortran.dg/parameter_array_init_2.f90 +++ b/gcc/testsuite/gfortran.dg/parameter_array_init_2.f90 @@ -7,20 +7,20 @@ ! integer,parameter :: i(1,1) = 0, j(2) = 42
- if (any (maxloc(j+j,mask=(j==2)) .ne. 0)) call abort ()
- if (size(j+j) .ne. 2) call abort ()
- if (minval(j+j) .ne. 84) call abort ()
- if (minval(j,mask=(j==2)) .ne. huge (j)) call abort ()
- if (maxval(j+j) .ne. 84) call abort ()
- if (maxval(j,mask=(j==2)) .ne. -huge (j)-1) call abort ()
- if (sum(j,mask=j==2) .ne. 0) call abort ()
- if (sum(j+j) .ne. 168) call abort ()
- if (product(j+j) .ne. 7056) call abort ()
- if (any(ubound(j+j) .ne. 2)) call abort ()
- if (any(lbound(j+j) .ne. 1)) call abort ()
- if (dot_product(j+j,j) .ne. 7056) call abort ()
- if (dot_product(j,j+j) .ne. 7056) call abort ()
- if (count(i==1) .ne. 0) call abort ()
- if (any(i==1)) call abort ()
- if (all(i==1)) call abort ()
+ if (any (maxloc(j+j,mask=(j==2)) .ne. 0)) STOP 1
+ if (size(j+j) .ne. 2) STOP 2
+ if (minval(j+j) .ne. 84) STOP 3
+ if (minval(j,mask=(j==2)) .ne. huge (j)) STOP 4
+ if (maxval(j+j) .ne. 84) STOP 5
+ if (maxval(j,mask=(j==2)) .ne. -huge (j)-1) STOP 6
+ if (sum(j,mask=j==2) .ne. 0) STOP 7
+ if (sum(j+j) .ne. 168) STOP 8
+ if (product(j+j) .ne. 7056) STOP 9
+ if (any(ubound(j+j) .ne. 2)) STOP 10
+ if (any(lbound(j+j) .ne. 1)) STOP 11
+ if (dot_product(j+j,j) .ne. 7056) STOP 12
+ if (dot_product(j,j+j) .ne. 7056) STOP 13
+ if (count(i==1) .ne. 0) STOP 14
+ if (any(i==1)) STOP 15
+ if (all(i==1)) STOP 16
end
|