diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/maxval_parameter_1.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/maxval_parameter_1.f90 | 34 |
1 files changed, 17 insertions, 17 deletions
diff --git a/gcc/testsuite/gfortran.dg/maxval_parameter_1.f90 b/gcc/testsuite/gfortran.dg/maxval_parameter_1.f90 index a8a1cb05d71..4c809d82c1c 100644 --- a/gcc/testsuite/gfortran.dg/maxval_parameter_1.f90 +++ b/gcc/testsuite/gfortran.dg/maxval_parameter_1.f90 @@ -29,23 +29,23 @@ program main character(len=3), parameter :: cm4 = maxval (c, c<"g") character(len=3), dimension(3), parameter :: cm5 = maxval(c,dim=1,mask=c<"p") - if (any (im1 /= [ 2, 5, 11])) call abort - if (im2 /= -1) call abort - if (any (im3 /= [ -1,11])) call abort - if (im4 /= -3) call abort - if (any (im5 /= [-huge(im5)-1, -3, -7])) call abort ! { dg-warning "Integer outside symmetric range" } - if (any (im6 /= [-1, -huge(im6)-1])) call abort ! { dg-warning "Integer outside symmetric range" } + if (any (im1 /= [ 2, 5, 11])) STOP 1 + if (im2 /= -1) STOP 2 + if (any (im3 /= [ -1,11])) STOP 3 + if (im4 /= -3) STOP 4 + if (any (im5 /= [-huge(im5)-1, -3, -7])) STOP 5! { dg-warning "Integer outside symmetric range" } + if (any (im6 /= [-1, -huge(im6)-1])) STOP 6! { dg-warning "Integer outside symmetric range" } - if (any (rm1 /= [ 2., 5., 11.])) call abort - if (rm2 /= -1.) call abort - if (any (rm3 /= [ -1.,11.])) call abort - if (rm4 /= -3.) call abort - if (any (rm5 /= [-huge(rm5), -3., -7.])) call abort - if (any (rm6 /= [-1.,-huge(rm6)])) call abort + if (any (rm1 /= [ 2., 5., 11.])) STOP 7 + if (rm2 /= -1.) STOP 8 + if (any (rm3 /= [ -1.,11.])) STOP 9 + if (rm4 /= -3.) STOP 10 + if (any (rm5 /= [-huge(rm5), -3., -7.])) STOP 11 + if (any (rm6 /= [-1.,-huge(rm6)])) STOP 12 - if (cm1 /= "zui") call abort - if (any (cm2 /= ["fgh", "qwe", "zui" ])) call abort - if (any (cm3 /= ["qwe", "zui" ])) call abort - if (cm4 /= "fgh") call abort - if (any(cm5 /= [ "fgh", "jkl", "ert" ] )) call abort + if (cm1 /= "zui") STOP 13 + if (any (cm2 /= ["fgh", "qwe", "zui" ])) STOP 14 + if (any (cm3 /= ["qwe", "zui" ])) STOP 15 + if (cm4 /= "fgh") STOP 16 + if (any(cm5 /= [ "fgh", "jkl", "ert" ] )) STOP 17 end program main |