diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/parameter_array_section_2.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/parameter_array_section_2.f90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/testsuite/gfortran.dg/parameter_array_section_2.f90 b/gcc/testsuite/gfortran.dg/parameter_array_section_2.f90 index aa212c050fa..0ecbce3434d 100644 --- a/gcc/testsuite/gfortran.dg/parameter_array_section_2.f90 +++ b/gcc/testsuite/gfortran.dg/parameter_array_section_2.f90 @@ -9,6 +9,6 @@ program PotentialMatrix implicit none real(kind=8),dimension(2),parameter::v2=(/1,2/) real(kind=8),dimension(4),parameter::v4=(/1,2,3,4/) - if (any (v2*v4(1:3:2) .ne. (/1,6/))) call abort () - if (any (v2*v4(3:1:-2) .ne. (/3,2/))) call abort () + if (any (v2*v4(1:3:2) .ne. (/1,6/))) STOP 1 + if (any (v2*v4(3:1:-2) .ne. (/3,2/))) STOP 2 end |