diff options
Diffstat (limited to 'gcc/testsuite/gfortran.fortran-torture')
219 files changed, 1103 insertions, 1103 deletions
diff --git a/gcc/testsuite/gfortran.fortran-torture/compile/nested.f90 b/gcc/testsuite/gfortran.fortran-torture/compile/nested.f90 index 1059684ddd5..3b609bf3c06 100644 --- a/gcc/testsuite/gfortran.fortran-torture/compile/nested.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/compile/nested.f90 @@ -7,17 +7,17 @@ program intrinsic_pack a = reshape (val, (/3, 3/)) b = 0 b(1:6:3) = pack (a, a .ne. 0); - if (any (b(1:6:3) .ne. (/9, 7/))) call abort + if (any (b(1:6:3) .ne. (/9, 7/))) STOP 1 b = pack (a(2:3, 2:3), a(2:3, 2:3) .ne. 0, (/1, 2, 3, 4, 5, 6/)); - if (any (b .ne. (/9, 7, 3, 4, 5, 6/))) call abort + if (any (b .ne. (/9, 7, 3, 4, 5, 6/))) STOP 2 contains subroutine tests_with_temp ! A few tests which involve a temporary - if (any (pack(a, a.ne.0) .ne. (/9, 7/))) call abort - if (any (pack(a, .true.) .ne. val)) call abort - if (size(pack (a, .false.)) .ne. 0) call abort - if (any (pack(a, .false., (/1,2,3/)).ne. (/1,2,3/))) call abort + if (any (pack(a, a.ne.0) .ne. (/9, 7/))) STOP 3 + if (any (pack(a, .true.) .ne. val)) STOP 4 + if (size(pack (a, .false.)) .ne. 0) STOP 5 + if (any (pack(a, .false., (/1,2,3/)).ne. (/1,2,3/))) STOP 6 end subroutine tests_with_temp end program diff --git a/gcc/testsuite/gfortran.fortran-torture/compile/parameter_1.f90 b/gcc/testsuite/gfortran.fortran-torture/compile/parameter_1.f90 index 8921bcddcad..c6d501b7992 100644 --- a/gcc/testsuite/gfortran.fortran-torture/compile/parameter_1.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/compile/parameter_1.f90 @@ -2,6 +2,6 @@ integer, parameter :: j = huge(j) integer i - if (j /= huge(i)) call abort + if (j /= huge(i)) STOP 1 end diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/a_edit_1.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/a_edit_1.f90 index 55a6f3cdf2c..e80d9276d8a 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/a_edit_1.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/a_edit_1.f90 @@ -7,11 +7,11 @@ read(C,'(A7)')D if (D.NE.'DEFG') then ! print*,D - call abort + STOP 1 endif read(C,'(A)')D if (D.NE.'ABCD') then ! print*,D - call abort + STOP 2 endif end diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/adjustr.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/adjustr.f90 index 8264ba7f811..76a1742984a 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/adjustr.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/adjustr.f90 @@ -39,7 +39,7 @@ print*, 'adjustr(s1) = "', adjustr(s1(i)), '"' if (adjustr(s1(i)).ne.s2(i)) then print*,'fail' - call abort + STOP 1 endif enddo diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/allocate.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/allocate.f90 index 61f717da7bc..acbad303231 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/allocate.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/allocate.f90 @@ -12,11 +12,11 @@ subroutine t1(first) logical first if (first) then - if (allocated (p)) call abort () + if (allocated (p)) STOP 1 else - if (.not. allocated (p)) call abort () + if (.not. allocated (p)) STOP 2 end if - if (allocated (q)) call abort () + if (allocated (q)) STOP 3 if (first) then allocate (p(5)) @@ -33,6 +33,6 @@ subroutine t2() allocate (r(5)) pr = 1.0 deallocate (r) - if (allocated(r)) call abort () + if (allocated(r)) STOP 4 end subroutine end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/alternate_return.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/alternate_return.f90 index 5c77844e6da..642cf29a087 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/alternate_return.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/alternate_return.f90 @@ -3,14 +3,14 @@ program alt_return call myproc (1, *10, 42) 20 continue - call abort () + STOP 1 10 continue call myproc(2, *20, 42) call myproc(3, *20, 42) contains subroutine myproc(n, *, i) integer n, i - if (i .ne. 42) call abort () + if (i .ne. 42) STOP 2 if (n .eq. 1) return 1 if (n .eq. 2) return end subroutine diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/args.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/args.f90 index 263c795ed70..994fdd57851 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/args.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/args.f90 @@ -3,7 +3,7 @@ subroutine test (a, b) integer, intent (IN) :: a integer, intent (OUT) :: b - if (a .ne. 42) call abort + if (a .ne. 42) STOP 1 b = 43 end subroutine @@ -15,8 +15,8 @@ program args i = 42 j = 0 CALL test (i, j) - if (i .ne. 42) call abort - if (j .ne. 43) call abort + if (i .ne. 42) STOP 2 + if (j .ne. 43) STOP 3 i = 41 CALL test (i + 1, j) end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/arithmeticif.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/arithmeticif.f90 index d06167e6814..db07237aadf 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/arithmeticif.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/arithmeticif.f90 @@ -19,7 +19,7 @@ program testwrite integer i integer testif - if (testif (-10) .ne. -1) call abort - if (testif (0) .ne. 0) call abort - if (testif (10) .ne. 1) call abort + if (testif (-10) .ne. -1) STOP 1 + if (testif (0) .ne. 0) STOP 2 + if (testif (10) .ne. 1) STOP 3 end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/arrayarg.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/arrayarg.f90 index b588d050b69..fa4cbe7d469 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/arrayarg.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/arrayarg.f90 @@ -10,9 +10,9 @@ subroutine f1 (a) implicit none integer, dimension (5, 8) :: a - if (a(1, 1) .ne. 42) call abort + if (a(1, 1) .ne. 42) STOP 1 - if (a(5, 8) .ne. 43) call abort + if (a(5, 8) .ne. 43) STOP 2 end subroutine @@ -67,8 +67,8 @@ subroutine test (parm) v2 (3, 1::2) = v1 (5:1:-1) v1 = v1 + 1 - if (v1(1) .ne. 2) call abort - if (v2(3, 3) .ne. 4) call abort + if (v1(1) .ne. 2) STOP 3 + if (v2(3, 3) .ne. 4) STOP 4 ! Passing whole arrays call f1 (a) @@ -137,9 +137,9 @@ end subroutine subroutine f2 (a) integer, dimension (1:, 1:) :: a - if (a(1, 1) .ne. 42) call abort + if (a(1, 1) .ne. 42) STOP 5 - if (a(5, 8) .ne. 43) call abort + if (a(5, 8) .ne. 43) STOP 6 end subroutine end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/arrayarg2.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/arrayarg2.f90 index 9cb5b613d64..ceff7c6b3b0 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/arrayarg2.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/arrayarg2.f90 @@ -7,7 +7,7 @@ program arrayarg2 call test (a, b) - if (any (b .ne. (/4, 7, 10, 13, 16/))) call abort + if (any (b .ne. (/4, 7, 10, 13, 16/))) STOP 1 contains subroutine test (x1, x2) implicit none diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/arraysave.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/arraysave.f90 index 94b234bd512..6ea5382a984 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/arraysave.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/arraysave.f90 @@ -16,9 +16,9 @@ subroutine fn (a) integer, dimension(2) :: b b = ubound (a) - if (any (b .ne. (/6, 5/))) call abort - if (a(1, 1) .ne. 42) call abort - if (a(6, 5) .ne. 43) call abort + if (any (b .ne. (/6, 5/))) STOP 1 + if (a(1, 1) .ne. 42) STOP 2 + if (a(6, 5) .ne. 43) STOP 3 end subroutine end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/assumed_size.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/assumed_size.f90 index b2c4657c647..ec50de00439 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/assumed_size.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/assumed_size.f90 @@ -3,7 +3,7 @@ subroutine test2(p) integer, dimension(2, *) :: p if (any (p(:, 1:3) .ne. reshape((/1, 2, 4, 5, 7, 8/), (/2, 3/)))) & - call abort () + STOP 1 end subroutine program assumed_size @@ -13,16 +13,16 @@ program assumed_size a = reshape ((/1, 2, 3, 4, 5, 6, 7, 8, 9/), (/3, 3/)) call test1(a, (/1, 2, 3, 4, 5, 6/)) - if (a(1,1) .ne. 0) call abort + if (a(1,1) .ne. 0) STOP 1 a(1, 1) = 1 call test1(a(1:2, :), (/1, 2, 4, 5, 7, 8/)) - if (a(1,1) .ne. 0) call abort + if (a(1,1) .ne. 0) STOP 2 a(1, 1) = 1 call test1(a(3:1:-1, :), (/3, 2, 1, 6, 5, 4/)) - if (a(3,1) .ne. 0) call abort + if (a(3,1) .ne. 0) STOP 3 a(3, 1) = 3 call test1(a(:, 2:3), (/4, 5, 6, 7, 8, 9/)) - if (a(1, 2) .ne. 0) call abort + if (a(1, 2) .ne. 0) STOP 4 a(1, 2) = 4 call test2(a(1:2, :)) @@ -32,7 +32,7 @@ subroutine test1(p, q) integer, dimension(*) :: p integer, dimension(1:) :: q - if (any (p(1:size(q)) .ne. q)) call abort () + if (any (p(1:size(q)) .ne. q)) STOP 2 p(1) = 0 end subroutine diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/backspace.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/backspace.f90 index 8781fb2c996..e832b628854 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/backspace.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/backspace.f90 @@ -9,6 +9,6 @@ read(10,*)C backspace(10) read(10,*) C - if (C.ne.'a') call abort + if (C.ne.'a') STOP 1 close(10,STATUS='DELETE') end diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/bounds.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/bounds.f90 index 894cd5d56b2..fb4e8c9c585 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/bounds.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/bounds.f90 @@ -6,24 +6,24 @@ program testbounds integer i ! Check compile time simplification - if (lbound(j,1).ne.1 .or. ubound(j,1).ne.5) call abort () + if (lbound(j,1).ne.1 .or. ubound(j,1).ne.5) STOP 1 allocate (a(3:8, 6:7)) ! With one parameter j = 0; j(3:4) = ubound(a) - if (j(3) .ne. 8) call abort - if (j(4) .ne. 7) call abort + if (j(3) .ne. 8) STOP 1 + if (j(4) .ne. 7) STOP 2 ! With two parameters, assigning to an array j = lbound(a, 1) - if ((j(1) .ne. 3) .or. (j(5) .ne. 3)) call abort + if ((j(1) .ne. 3) .or. (j(5) .ne. 3)) STOP 3 ! With a variable second parameter i = 2 i = lbound(a, i) - if (i .ne. 6) call abort + if (i .ne. 6) STOP 4 call test(a) contains @@ -32,7 +32,7 @@ subroutine test (a) integer i i = 2 - if ((ubound(a, 1) .ne. 6) .or. (ubound(a, i) .ne. 2)) call abort + if ((ubound(a, 1) .ne. 6) .or. (ubound(a, i) .ne. 2)) STOP 5 end subroutine end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/character_passing.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/character_passing.f90 index af06a84e471..896a9bc8c77 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/character_passing.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/character_passing.f90 @@ -9,7 +9,7 @@ b='B' x = LSAME(a1,a2) if ( .not. x ) then - call abort (); + STOP 1; endif end diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/character_select_1.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/character_select_1.f90 index c42cea4fc21..46af8a12968 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/character_select_1.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/character_select_1.f90 @@ -2,11 +2,11 @@ CHARACTER(LEN=6) :: C = "STEVEN" SELECT CASE (C) CASE ("AAA":"EEE") - CALL abort + STOP 1 CASE ("R":"T") CONTINUE CASE DEFAULT - CALL abort + STOP 2 END SELECT END diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/cmplx.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/cmplx.f90 index edec983d39e..d3b70c830cd 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/cmplx.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/cmplx.f90 @@ -10,39 +10,39 @@ program testcmplx x = 3 y = 4 c = cmplx(x,y) - if (c .ne. (3.0, 4.0)) call abort + if (c .ne. (3.0, 4.0)) STOP 1 x = 4 y = 3 z = cmplx(x, y, 8) - if (z .ne. (4.0, 3.0)) call abort + if (z .ne. (4.0, 3.0)) STOP 2 z = c - if (z .ne. (3.0, 4.0)) call abort + if (z .ne. (3.0, 4.0)) STOP 3 ! dcmplx intrinsic x = 3 y = 4 z = dcmplx (x, y) - if (z .ne. (3.0, 4.0)) call abort + if (z .ne. (3.0, 4.0)) STOP 4 ! conjucates and aimag c = (1.0, 2.0) c = conjg (c) x = aimag (c) - if (abs (c - (1.0, -2.0)) .gt. 0.001) call abort - if (x .ne. -2.0) call abort + if (abs (c - (1.0, -2.0)) .gt. 0.001) STOP 5 + if (x .ne. -2.0) STOP 6 z = (2.0, 1.0) z = conjg (z) q = aimag (z) - if (z .ne. (2.0, -1.0)) call abort - if (q .ne. -1.0) call abort + if (z .ne. (2.0, -1.0)) STOP 7 + if (q .ne. -1.0) STOP 8 ! addition, subtraction and multiplication c = (1, 3) d = (5, 2) - if (c + d .ne. ( 6, 5)) call abort - if (c - d .ne. (-4, 1)) call abort - if (c * d .ne. (-1, 17)) call abort + if (c + d .ne. ( 6, 5)) STOP 9 + if (c - d .ne. (-4, 1)) STOP 10 + if (c * d .ne. (-1, 17)) STOP 11 ! test for constant folding - if ((35.,-10.)**0.NE.(1.,0.)) call abort + if ((35.,-10.)**0.NE.(1.,0.)) STOP 12 end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/common.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/common.f90 index 2ea1788eb54..0533cff76d9 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/common.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/common.f90 @@ -18,15 +18,15 @@ subroutine common_pass real (kind=8) b(5), c(5) common /com1/b,c equivalence (a(1), b(2)) - if (any (a .ne. (/100,100,100,100,200,200,200,200/))) call abort + if (any (a .ne. (/100,100,100,100,200,200,200,200/))) STOP 1 end subroutine ! Common variables as argument subroutine common_par (a, b, c) real (kind=8) a(8), b(5), c(5) - if (any (a .ne. (/100,100,100,100,200,200,200,200/))) call abort - if (any (b .ne. (/100,100,100,100,100/))) call abort - if (any (c .ne. (/200,200,200,200,200/))) call abort + if (any (a .ne. (/100,100,100,100,200,200,200,200/))) STOP 2 + if (any (b .ne. (/100,100,100,100,100/))) STOP 3 + if (any (c .ne. (/200,200,200,200,200/))) STOP 4 end subroutine ! Global equivalence @@ -39,8 +39,8 @@ subroutine global_equiv c = 200 y = 300 z = 400 - if (any (a .ne. (/100,100,100,100,200,200,200,200/))) call abort - if (any (x .ne. (/200,200,200,300,300,300,300,400/))) call abort + if (any (a .ne. (/100,100,100,100,200,200,200,200/))) STOP 5 + if (any (x .ne. (/200,200,200,300,300,300,300,400/))) STOP 6 end ! Local equivalence @@ -49,5 +49,5 @@ subroutine local_equiv equivalence (a(1), b(3)) b(1:5) = 100 b(6:10) = 200 - if (any (a .ne. (/100,100,100,200,200,200,200,200/))) call abort + if (any (a .ne. (/100,100,100,200,200,200,200,200/))) STOP 7 end subroutine diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/common_2.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/common_2.f90 index 8bcdbb87a4f..9a3bee8ff35 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/common_2.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/common_2.f90 @@ -13,8 +13,8 @@ INTEGER :: J COMMON /X/J j = 1 i = 2 -if (j.ne.i) call abort() -if (j.ne.2) call abort() +if (j.ne.i) STOP 1 +if (j.ne.2) STOP 2 call set_i() -if (j.ne.5) call abort() +if (j.ne.5) STOP 3 END diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/common_init_1.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/common_init_1.f90 index 9e5aec0f726..5b7cc638d15 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/common_init_1.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/common_init_1.f90 @@ -6,8 +6,8 @@ subroutine test() common /block2/ c common /block/ d, e, f - if ((d .ne. 42) .or. (e .ne. 43) .or. (f .ne. 2.0)) call abort () - if (c .ne. "Hello World ") call abort () + if ((d .ne. 42) .or. (e .ne. 43) .or. (f .ne. 2.0)) STOP 1 + if (c .ne. "Hello World ") STOP 2 end subroutine program prog diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/common_size.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/common_size.f90 index 936c41e3282..51adc6a693e 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/common_size.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/common_size.f90 @@ -6,5 +6,5 @@ program common_size equivalence (a(1), b(2)) b = 100 c = 200 - if ((a (4) .ne. 100) .or. (a(5) .ne. 200)) call abort + if ((a (4) .ne. 100) .or. (a(5) .ne. 200)) STOP 1 end diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/constructor.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/constructor.f90 index 96cb89d721c..5f04de668c4 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/constructor.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/constructor.f90 @@ -6,13 +6,13 @@ program constructors a = (/1, (i,i=2,4)/) do i = 1, 4 - if (a(i) .ne. i) call abort + if (a(i) .ne. i) STOP 1 end do b = reshape ((/0, 1, 2, 3, 4, 5/), (/3, 2/)) + 1 do i=1,3 - if (b(i, 1) .ne. i) call abort - if (b(i, 2) .ne. i + 3) call abort + if (b(i, 1) .ne. i) STOP 2 + if (b(i, 2) .ne. i + 3) STOP 3 end do k = 1 @@ -21,9 +21,9 @@ program constructors n = 4 ! The remainder assumes constant constructors work ok. a = (/n, m, l, k/) - if (any (a .ne. (/4, 3, 2, 1/))) call abort + if (any (a .ne. (/4, 3, 2, 1/))) STOP 4 a = (/((/i+10, 42/), i = k, l)/) - if (any (a .ne. (/11, 42, 12, 42/))) call abort + if (any (a .ne. (/11, 42, 12, 42/))) STOP 5 a = (/(I, I=k,l) , (J, J=m,n)/) - if (any (a .ne. (/1, 2, 3, 4/))) call abort + if (any (a .ne. (/1, 2, 3, 4/))) STOP 6 end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/contained.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/contained.f90 index 3c7117744dd..c6e66e88e99 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/contained.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/contained.f90 @@ -4,13 +4,13 @@ program contained i = 0; call testproc (40) - if (i .ne. 42) call abort + if (i .ne. 42) STOP 1 contains subroutine testproc (p) implicit none integer p - if (p .ne. 40) call abort + if (p .ne. 40) STOP 2 i = p + 2 end subroutine end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/contained2.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/contained2.f90 index cae94b704e1..c0793fb5b01 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/contained2.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/contained2.f90 @@ -4,9 +4,9 @@ program contained2 integer var1 var1 = 42 - if (f1() .ne. 1) call abort + if (f1() .ne. 1) STOP 1 call f2() - if (var1 .ne. 42) call abort + if (var1 .ne. 42) STOP 2 contains function f1 () @@ -22,7 +22,7 @@ end function subroutine f2() implicit none - if (f1() .ne. 1) call abort + if (f1() .ne. 1) STOP 3 end subroutine end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/contained_3.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/contained_3.f90 index d0de1f44913..7b6d817ae17 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/contained_3.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/contained_3.f90 @@ -5,7 +5,7 @@ program contained_3 call test contains subroutine test - if (sub(3) .ne. 6) call abort + if (sub(3) .ne. 6) STOP 1 end subroutine integer function sub(i) integer i diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/csqrt_1.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/csqrt_1.f90 index 680449f3ede..d23112e1151 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/csqrt_1.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/csqrt_1.f90 @@ -6,7 +6,7 @@ common /flags/ fail fail = .false. call square_root - if (fail) call abort + if (fail) STOP 1 end subroutine square_root intrinsic sqrt, dsqrt, csqrt diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/data.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/data.f90 index d2d86a2d71c..c00673a6fe5 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/data.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/data.f90 @@ -25,37 +25,37 @@ ! array element reference data tmp2(2)%t1(2)%a(3), tmp2(2)%t1(2)%a(1)/223,221/ - if (any(tmp2(1)%t1(1)%a .ne. (/111,0,113,0/))) call abort - if (tmp2(1)%t1(1)%r .ne. 0.0) call abort - if (tmp2(1)%b .ne. 10) call abort + if (any(tmp2(1)%t1(1)%a .ne. (/111,0,113,0/))) STOP 1 + if (tmp2(1)%t1(1)%r .ne. 0.0) STOP 2 + if (tmp2(1)%b .ne. 10) STOP 3 - if (any(tmp2(1)%t1(2)%a .ne. (/121,122,123,124/))) call abort - if (tmp2(1)%t1(2)%r .ne. 0.0) call abort - if (tmp2(1)%b .ne. 10) call abort + if (any(tmp2(1)%t1(2)%a .ne. (/121,122,123,124/))) STOP 4 + if (tmp2(1)%t1(2)%r .ne. 0.0) STOP 5 + if (tmp2(1)%b .ne. 10) STOP 6 - if (any(tmp2(1)%t1(3)%a .ne. (/136,137,138,139/))) call abort - if (tmp2(1)%t1(3)%r .ne. 0.0) call abort - if (tmp2(1)%b .ne. 10) call abort + if (any(tmp2(1)%t1(3)%a .ne. (/136,137,138,139/))) STOP 7 + if (tmp2(1)%t1(3)%r .ne. 0.0) STOP 8 + if (tmp2(1)%b .ne. 10) STOP 9 - if (any(tmp2(1)%t1(4)%a .ne. (/141,142,143,144/))) call abort - if (tmp2(1)%t1(4)%r .ne. 0.0) call abort - if (tmp2(1)%b .ne. 10) call abort + if (any(tmp2(1)%t1(4)%a .ne. (/141,142,143,144/))) STOP 10 + if (tmp2(1)%t1(4)%r .ne. 0.0) STOP 11 + if (tmp2(1)%b .ne. 10) STOP 12 - if (any(tmp2(2)%t1(1)%a .ne. (/0,0,0,0/))) call abort - if (tmp2(2)%t1(1)%r .ne. 0.0) call abort - if (tmp2(2)%b .ne. 0) call abort + if (any(tmp2(2)%t1(1)%a .ne. (/0,0,0,0/))) STOP 13 + if (tmp2(2)%t1(1)%r .ne. 0.0) STOP 14 + if (tmp2(2)%b .ne. 0) STOP 15 - if (any(tmp2(2)%t1(2)%a .ne. (/221,0,223,0/))) call abort - if (tmp2(2)%t1(2)%r .ne. 220.0) call abort - if (tmp2(2)%b .ne. 0) call abort + if (any(tmp2(2)%t1(2)%a .ne. (/221,0,223,0/))) STOP 16 + if (tmp2(2)%t1(2)%r .ne. 220.0) STOP 17 + if (tmp2(2)%b .ne. 0) STOP 18 - if (any(tmp2(2)%t1(3)%a .ne. (/5,5,233,234/))) call abort - if (tmp2(2)%t1(3)%r .ne. 0.0) call abort - if (tmp2(2)%b .ne. 0) call abort + if (any(tmp2(2)%t1(3)%a .ne. (/5,5,233,234/))) STOP 19 + if (tmp2(2)%t1(3)%r .ne. 0.0) STOP 20 + if (tmp2(2)%b .ne. 0) STOP 21 - if (any(tmp2(2)%t1(4)%a .ne. (/241,242,5,5/))) call abort - if (tmp2(2)%t1(4)%r .ne. 0.0) call abort - if (tmp2(2)%b .ne. 0) call abort + if (any(tmp2(2)%t1(4)%a .ne. (/241,242,5,5/))) STOP 22 + if (tmp2(2)%t1(4)%r .ne. 0.0) STOP 23 + if (tmp2(2)%b .ne. 0) STOP 24 end subroutine sub2() @@ -64,9 +64,9 @@ real r,t data i,j,r,k,t,b(5),b(2),((a(i,j),i=1,4,1),j=4,1,-1)/1,2,3,4,5,5,2,& 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16/ - if ((i.ne.1) .and. (j.ne.2).and.(k.ne.4)) call abort - if ((r.ne.3.0).and.(t.ne.5.0)) call abort - if (any(b.ne.(/0,2,0,0,5,0,0,0,0,0/))) call abort - if (any(a.ne.reshape((/13,14,15,16,9,10,11,12,5,6,7,8,1,2,3,4/),(/4,4/)))) call abort + if ((i.ne.1) .and. (j.ne.2).and.(k.ne.4)) STOP 25 + if ((r.ne.3.0).and.(t.ne.5.0)) STOP 26 + if (any(b.ne.(/0,2,0,0,5,0,0,0,0,0/))) STOP 27 + if (any(a.ne.reshape((/13,14,15,16,9,10,11,12,5,6,7,8,1,2,3,4/),(/4,4/)))) STOP 28 end diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/data_2.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/data_2.f90 index 0aa44f6052a..2c352f0fd18 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/data_2.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/data_2.f90 @@ -10,8 +10,8 @@ program data_2 data a(:), b%i /1, 2, 3, 4, 5, 6/ data c(1, :), c(2, :) /7, 8, 9, 10/ - if (any (a .ne. (/1, 2, 3/))) call abort () - if (any (b%i .ne. (/4, 5, 6/))) call abort () + if (any (a .ne. (/1, 2, 3/))) STOP 1 + if (any (b%i .ne. (/4, 5, 6/))) STOP 2 if ((any (c(1, :) .ne. (/7, 8/))) & - .or. (any (c(2,:) .ne. (/9, 10/)))) call abort () + .or. (any (c(2,:) .ne. (/9, 10/)))) STOP 3 end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/data_3.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/data_3.f90 index bdeaaa87109..1f34f6c3656 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/data_3.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/data_3.f90 @@ -11,9 +11,9 @@ DATA b(2:6), c /'AAA', '12345'/ DATA d /2*'1234'/ DATA e(4:4), e(1:3) /'45', '123A'/ -IF (a.NE.'aab ') CALL abort() -IF (b.NE.' AAA ') CALL abort() -IF (c.NE.'12') CALL abort() -IF (d(1).NE.d(2) .OR. d(1).NE.'1234') CALL abort() -IF (e.NE.'1234') CALL abort() +IF (a.NE.'aab ') STOP 1 +IF (b.NE.' AAA ') STOP 2 +IF (c.NE.'12') STOP 3 +IF (d(1).NE.d(2) .OR. d(1).NE.'1234') STOP 4 +IF (e.NE.'1234') STOP 5 END diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/data_4.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/data_4.f90 index 4b5c10e6a8b..c05fc81f38c 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/data_4.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/data_4.f90 @@ -2,5 +2,5 @@ DATA A /'A',"A",'A'/ DATA B /3*'A'/ DATA C /'A', 2*'A'/ - IF (ANY(A.NE.B).OR.ANY(A.NE.C)) CALL ABORT + IF (ANY(A.NE.B).OR.ANY(A.NE.C)) STOP 1 END diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/dep_fails.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/dep_fails.f90 index c8eec5c73ac..daa9af4e32b 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/dep_fails.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/dep_fails.f90 @@ -42,7 +42,7 @@ Program Strange Current = Perm(Current(1), Current(2))%Next End Do - if (any(results .ne. reshape ((/2,2,1,2,2,1,1,1/), (/2, 4/)))) call abort + if (any(results .ne. reshape ((/2,2,1,2,2,1,1,1/), (/2, 4/)))) STOP 1 ! 100 Format( 2I3, '--->', 2I3) DeAllocate (Perm) diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/der_init.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/der_init.f90 index 72531f9acf6..483cf41d3c5 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/der_init.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/der_init.f90 @@ -15,18 +15,18 @@ program der_init type (t), dimension(2) :: var3 type (t), dimension(2) :: var4 = (/t(7, 9), t(8, 6)/) - if (var%i .ne. 1 .or. var%j .ne. 2) call abort - if (var2%j .ne. 4) call abort + if (var%i .ne. 1 .or. var%j .ne. 2) STOP 1 + if (var2%j .ne. 4) STOP 2 var2 = t(6, 5) - if (var2%i .ne. 6 .or. var2%j .ne. 5) call abort + if (var2%i .ne. 6 .or. var2%j .ne. 5) STOP 3 - if ((var3(1)%j .ne. 4) .or. (var3(2)%j .ne. 4)) call abort + if ((var3(1)%j .ne. 4) .or. (var3(2)%j .ne. 4)) STOP 4 if ((var4(1)%i .ne. 7) .or. (var4(2)%i .ne. 8) & - .or. (var4(1)%j .ne. 9) .or. (var4(2)%j .ne. 6)) call abort + .or. (var4(1)%j .ne. 9) .or. (var4(2)%j .ne. 6)) STOP 5 ! Non-constant constructor n = 1 m = 5 var2 = t(n, n + m) - if (var2%i .ne. 1 .or. var2%j .ne. 6) call abort + if (var2%i .ne. 1 .or. var2%j .ne. 6) STOP 6 end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/der_init_2.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/der_init_2.f90 index d0448a55b67..cd6fc505bc1 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/der_init_2.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/der_init_2.f90 @@ -10,6 +10,6 @@ program der_init_2 type (foo) :: v - if ((v%b .ne. 123) .or. any (v%a .ne. 42)) call abort (); + if ((v%b .ne. 123) .or. any (v%a .ne. 42)) STOP 1; end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/der_init_3.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/der_init_3.f90 index 21b79092f74..94e0a5eb404 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/der_init_3.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/der_init_3.f90 @@ -7,6 +7,6 @@ program main type (xyz) :: a !! ok type (xyz) b !!! not initialized !!! - if (a%x.ne.123) call abort - if (b%x.ne.123) call abort + if (a%x.ne.123) STOP 1 + if (b%x.ne.123) STOP 2 end diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/der_init_4.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/der_init_4.f90 index 644ef65e1ab..d6942a2d08f 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/der_init_4.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/der_init_4.f90 @@ -10,6 +10,6 @@ contains subroutine foo(a) type (t), intent(in) :: a - if (a%i .ne. 5) call abort + if (a%i .ne. 5) STOP 1 end subroutine end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/der_init_5.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/der_init_5.f90 index c81d9260e55..7953ab6de25 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/der_init_5.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/der_init_5.f90 @@ -9,8 +9,8 @@ program der_init_5 integer, pointer, dimension(:) :: d => NULL() end type t type (t) :: p - if (associated(p%a)) call abort() - if (associated(p%b)) call abort() -! if (associated(p%c)) call abort() - if (associated(p%d)) call abort() + if (associated(p%a)) STOP 1 + if (associated(p%b)) STOP 2 +! if (associated(p%c)) STOP 3 + if (associated(p%d)) STOP 4 end diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/der_io.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/der_io.f90 index b1b421bc678..2e788cd17fb 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/der_io.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/der_io.f90 @@ -39,14 +39,14 @@ program derived_io write (buf1, *), xyz(1)%x, xyz(1)%y, xyz(1)%z ! Use function call to ensure it is only evaluated once write (buf2, *), xyz(bar()) - if (buf1.ne.buf2) call abort + if (buf1.ne.buf2) STOP 1 write (buf1, *), abcdef write (buf2, *), abcdef%a, abcdef%b, abcdef%c, abcdef%d, abcdef%e, abcdef%f write (buf3, *), abcdef%a, abcdef%b, abcdef%c%x, abcdef%c%y, & abcdef%c%z, abcdef%d, abcdef%e, abcdef%f - if (buf1.ne.buf2) call abort - if (buf1.ne.buf3) call abort + if (buf1.ne.buf2) STOP 2 + if (buf1.ne.buf3) STOP 3 call foo(xyz(1)) @@ -56,7 +56,7 @@ program derived_io type (xyz_type) t write (buf1, *), t%x, t%y, t%z write (buf2, *), t - if (buf1.ne.buf2) call abort + if (buf1.ne.buf2) STOP 4 end subroutine foo integer function bar() diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/der_point.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/der_point.f90 index 1dcb07c2108..a96297dd448 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/der_point.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/der_point.f90 @@ -34,12 +34,12 @@ program nest_derived e1%rp%value = 44 e1%rp%rp%value = 55 - if (r1%r1p%value .ne. 22) call abort - if (r2%r2p%value .ne. 11) call abort - if (e1%value .ne. 33) call abort - if (e2%value .ne. 44) call abort - if (e3%value .ne. 55) call abort - if (r1%value .ne. 11) call abort - if (r2%value .ne. 22) call abort + if (r1%r1p%value .ne. 22) STOP 1 + if (r2%r2p%value .ne. 11) STOP 2 + if (e1%value .ne. 33) STOP 3 + if (e2%value .ne. 44) STOP 4 + if (e3%value .ne. 55) STOP 5 + if (r1%value .ne. 11) STOP 6 + if (r2%value .ne. 22) STOP 7 end diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/der_type.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/der_type.f90 index 6a2716407bf..76112c9036c 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/der_type.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/der_type.f90 @@ -22,24 +22,24 @@ program der_type type (init_type) :: is_init = init_type (10, 11) integer i; - if ((def_init%i .ne. 13) .or. (def_init%j .ne. 14)) call abort - if ((is_init%i .ne. 10) .or. (is_init%j .ne. 11)) call abort + if ((def_init%i .ne. 13) .or. (def_init%j .ne. 14)) STOP 1 + if ((is_init%i .ne. 10) .or. (is_init%j .ne. 11)) STOP 2 ! Passing a component as a parameter tests getting the addr of a component call test_call(def_init%i) var%c = "Hello World" - if (var%c .ne. "Hello World") call abort + if (var%c .ne. "Hello World") STOP 3 var%r%a(:, :) = 0 var%ca(:, :)%s = 0 var%r%a(1, 1) = 42 var%r%a(4, 5) = 43 var%ca(:, :)%s = var%r%a(:, 1:5:2) - if (var%ca(1, 1)%s .ne. 42) call abort - if (var%ca(4, 3)%s .ne. 43) call abort + if (var%ca(1, 1)%s .ne. 42) STOP 4 + if (var%ca(4, 3)%s .ne. 43) STOP 5 contains subroutine test_call (p) integer p - if (p .ne. 13) call abort + if (p .ne. 13) STOP 6 end subroutine end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/direct_io.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/direct_io.f90 index deba9a6bfa5..7a9e4130ff0 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/direct_io.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/direct_io.f90 @@ -10,12 +10,12 @@ READ(10,REC=I,ERR=10)J IF (J.NE.I) THEN ! PRINT*,' READ ',J,' EXPECTED ',I - CALL ABORT + STOP 1 ENDIF ENDDO CLOSE(10,STATUS='DELETE') STOP 10 CONTINUE ! PRINT*,' ERR= RETURN FROM READ OR WRITE' - CALL ABORT + STOP 2 END diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/elemental.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/elemental.f90 index 79a511cdee8..1f9df0da35e 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/elemental.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/elemental.f90 @@ -8,21 +8,21 @@ program test_elemental a = reshape ((/2, 3, 4, 5, 6, 7, 8, 9/), (/2, 4/)) b = 0 b(2, :) = e_fn (a(1, :), 1) - if (any (b .ne. reshape ((/0, 1, 0, 3, 0, 5, 0, 7/), (/2, 4/)))) call abort + if (any (b .ne. reshape ((/0, 1, 0, 3, 0, 5, 0, 7/), (/2, 4/)))) STOP 1 a = e_fn (a(:, 4:1:-1), 1 + b) - if (any (a .ne. reshape ((/7, 7, 5, 3, 3, -1, 1, -5/), (/2, 4/)))) call abort + if (any (a .ne. reshape ((/7, 7, 5, 3, 3, -1, 1, -5/), (/2, 4/)))) STOP 2 ! This tests intrinsic elemental conversion functions. c = 2 * a(1, 1) - if (any (c .ne. 14)) call abort + if (any (c .ne. 14)) STOP 3 ! This triggered bug due to building ss chains in the wrong order. b = 0; a = a - e_fn (a, b) - if (any (a .ne. 0)) call abort + if (any (a .ne. 0)) STOP 4 ! Check expressions involving constants a = e_fn (b + 1, 1) - if (any (a .ne. 0)) call abort + if (any (a .ne. 0)) STOP 5 contains elemental integer(kind=4) function e_fn (p, q) diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/empty_format.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/empty_format.f90 index 242bee8b467..d86407265e3 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/empty_format.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/empty_format.f90 @@ -9,6 +9,6 @@ ! IF (A10VK.NE.'') THEN ! PRINT*,A10VK - CALL ABORT + STOP 1 ENDIF END diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/emptyif.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/emptyif.f90 index 0c19fa57108..b5b72957b9e 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/emptyif.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/emptyif.f90 @@ -9,12 +9,12 @@ program emptyif else i = 2 endif - if (i .ne. 2) call abort() + if (i .ne. 2) STOP 1 if (i .eq. 0) then elseif (i .eq. 2) then i = 3 end if - if (i .ne. 3) call abort() + if (i .ne. 3) STOP 2 end diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/entry_1.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/entry_1.f90 index bef8a98dfd9..64f18eead1d 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/entry_1.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/entry_1.f90 @@ -52,23 +52,23 @@ integer f1, e1, f5, e5 real f2, e2, f6, e6, f7, e7, f8, e8, f9, e9 double precision f3, e3, f4, e4, d - if (f1 (6) .ne. 21) call abort () - if (e1 (7) .ne. 49) call abort () - if (f2 () .ne. 45) call abort () - if (e2 () .ne. 45) call abort () - if (f3 () .ne. 47) call abort () - if (e3 () .ne. 47) call abort () + if (f1 (6) .ne. 21) STOP 1 + if (e1 (7) .ne. 49) STOP 2 + if (f2 () .ne. 45) STOP 3 + if (e2 () .ne. 45) STOP 4 + if (f3 () .ne. 47) STOP 5 + if (e3 () .ne. 47) STOP 6 d = 17 - if (f4 (d) .ne. 32) call abort () - if (e4 (d) .ne. 59) call abort () - if (f5 () .ne. 45) call abort () - if (e5 () .ne. 45) call abort () - if (f6 () .ne. 47) call abort () - if (e6 () .ne. 47) call abort () - if (f7 () .ne. 163) call abort () - if (e7 () .ne. 163) call abort () - if (f8 () .ne. 115) call abort () - if (e8 () .ne. 115) call abort () - if (f9 () .ne. 119) call abort () - if (e9 () .ne. 119) call abort () + if (f4 (d) .ne. 32) STOP 7 + if (e4 (d) .ne. 59) STOP 8 + if (f5 () .ne. 45) STOP 9 + if (e5 () .ne. 45) STOP 10 + if (f6 () .ne. 47) STOP 11 + if (e6 () .ne. 47) STOP 12 + if (f7 () .ne. 163) STOP 13 + if (e7 () .ne. 163) STOP 14 + if (f8 () .ne. 115) STOP 15 + if (e8 () .ne. 115) STOP 16 + if (f9 () .ne. 119) STOP 17 + if (e9 () .ne. 119) STOP 18 end diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/entry_10.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/entry_10.f90 index 0c21d76e303..289265d96ad 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/entry_10.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/entry_10.f90 @@ -8,6 +8,6 @@ end program entrytest - if (foo () .ne. 2) call abort () - if (bar () .ne. 3) call abort () + if (foo () .ne. 2) STOP 1 + if (bar () .ne. 3) STOP 2 end diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/entry_11.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/entry_11.f90 index 916891fdeb9..fb8267f55b1 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/entry_11.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/entry_11.f90 @@ -9,8 +9,8 @@ end program entrytest - if (i (8).ne.8) call abort - if (i (4).ne.6) call abort - if (j (0).ne.3) call abort - if (j (7).ne.7) call abort + if (i (8).ne.8) STOP 1 + if (i (4).ne.6) STOP 2 + if (j (0).ne.3) STOP 3 + if (j (7).ne.7) STOP 4 end diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/entry_2.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/entry_2.f90 index 5db39db6a9d..238ee8dbae3 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/entry_2.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/entry_2.f90 @@ -35,17 +35,17 @@ i = 2 j = 6 ret = f1 (str, i, j) - if ((i .ne. 2) .or. (j .ne. 6)) call abort () - if (ret .ne. 'BCDEF') call abort () + if ((i .ne. 2) .or. (j .ne. 6)) STOP 1 + if (ret .ne. 'BCDEF') STOP 2 ret = e1 (str, i, j) - if ((i .ne. 3) .or. (j .ne. 5)) call abort () - if (ret .ne. 'CDE') call abort () + if ((i .ne. 3) .or. (j .ne. 5)) STOP 3 + if (ret .ne. 'CDE') STOP 4 ret = e2 (str, i, j) - if ((i .ne. 3) .or. (j .ne. 4)) call abort () - if (ret .ne. 'CD') call abort () - if (f3 () .ne. 'ABCDE') call abort () - if (e3 (1) .ne. 'abcde') call abort () - if (e4 (1) .ne. 'abcde') call abort () - if (e3 (0) .ne. 'UVWXY') call abort () - if (e4 (0) .ne. 'UVWXY') call abort () + if ((i .ne. 3) .or. (j .ne. 4)) STOP 5 + if (ret .ne. 'CD') STOP 6 + if (f3 () .ne. 'ABCDE') STOP 7 + if (e3 (1) .ne. 'abcde') STOP 8 + if (e4 (1) .ne. 'abcde') STOP 9 + if (e3 (0) .ne. 'UVWXY') STOP 10 + if (e4 (0) .ne. 'UVWXY') STOP 11 end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/entry_3.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/entry_3.f90 index 7174fa878ca..d7cffea5c29 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/entry_3.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/entry_3.f90 @@ -1,16 +1,16 @@ subroutine f1 (n, *, i) integer n, i - if (i .ne. 42) call abort () + if (i .ne. 42) STOP 1 entry e1 (n, *) if (n .eq. 1) return 1 if (n .eq. 2) return return entry e2 (n, i, *, *, *) - if (i .ne. 46) call abort () + if (i .ne. 46) STOP 2 if (n .ge. 4) return return n entry e3 (n, i) - if ((i .ne. 48) .or. (n .ne. 61)) call abort () + if ((i .ne. 48) .or. (n .ne. 61)) STOP 3 end subroutine program alt_return @@ -18,22 +18,22 @@ call f1 (1, *10, 42) 20 continue - call abort () + STOP 4 10 continue call f1 (2, *20, 42) call f1 (3, *20, 42) call e1 (2, *20) call e1 (1, *30) - call abort () + STOP 5 30 continue call e2 (1, 46, *40, *20, *20) - call abort () + STOP 6 40 continue call e2 (2, 46, *20, *50, *20) - call abort () + STOP 7 50 continue call e2 (3, 46, *20, *20, *60) - call abort () + STOP 8 60 continue call e2 (4, 46, *20, *20, *20) call e3 (61, 48) diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/entry_4.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/entry_4.f90 index f74440c13a7..f775d20dd93 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/entry_4.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/entry_4.f90 @@ -49,16 +49,16 @@ double precision e1, g4 logical e2, e3, f4 complex f2, g3 - if (f1 (6) .ne. 21) call abort () - if (e1 (7) .ne. 49) call abort () - if (f2 (0) .ne. 45) call abort () - if (.not. e2 (45)) call abort () - if (e2 (46)) call abort () - if (f3 (17) .ne. 32) call abort () - if (.not. e3 (42)) call abort () - if (e3 (41)) call abort () - if (g3 (12) .ne. 23) call abort () - if (.not. f4 (-5)) call abort () - if (e4 (0) .ne. 16) call abort () - if (g4 (2) .ne. 19) call abort () + if (f1 (6) .ne. 21) STOP 1 + if (e1 (7) .ne. 49) STOP 2 + if (f2 (0) .ne. 45) STOP 3 + if (.not. e2 (45)) STOP 4 + if (e2 (46)) STOP 5 + if (f3 (17) .ne. 32) STOP 6 + if (.not. e3 (42)) STOP 7 + if (e3 (41)) STOP 8 + if (g3 (12) .ne. 23) STOP 9 + if (.not. f4 (-5)) STOP 10 + if (e4 (0) .ne. 16) STOP 11 + if (g4 (2) .ne. 19) STOP 12 end diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/entry_5.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/entry_5.f90 index 2fd927f4eb3..a2e318c788e 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/entry_5.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/entry_5.f90 @@ -35,17 +35,17 @@ i = 2 j = 6 ret = f1 (str, i, j) - if ((i .ne. 2) .or. (j .ne. 6)) call abort () - if (ret .ne. 'BCDEF') call abort () + if ((i .ne. 2) .or. (j .ne. 6)) STOP 1 + if (ret .ne. 'BCDEF') STOP 2 ret = e1 (str, i, j) - if ((i .ne. 3) .or. (j .ne. 5)) call abort () - if (ret .ne. 'CDE') call abort () + if ((i .ne. 3) .or. (j .ne. 5)) STOP 3 + if (ret .ne. 'CDE') STOP 4 ret = e2 (str, i, j) - if ((i .ne. 3) .or. (j .ne. 4)) call abort () - if (ret .ne. 'CD') call abort () - if (f3 () .ne. 'ABCDE') call abort () - if (e3 (1) .ne. 'abcde') call abort () - if (e4 (1) .ne. 'abcde') call abort () - if (e3 (0) .ne. 'UVWXY') call abort () - if (e4 (0) .ne. 'UVWXY') call abort () + if ((i .ne. 3) .or. (j .ne. 4)) STOP 5 + if (ret .ne. 'CD') STOP 6 + if (f3 () .ne. 'ABCDE') STOP 7 + if (e3 (1) .ne. 'abcde') STOP 8 + if (e4 (1) .ne. 'abcde') STOP 9 + if (e3 (0) .ne. 'UVWXY') STOP 10 + if (e4 (0) .ne. 'UVWXY') STOP 11 end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/entry_6.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/entry_6.f90 index a75c513a1c0..c288329ad87 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/entry_6.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/entry_6.f90 @@ -80,30 +80,30 @@ double precision, dimension (2, 2) :: d, e i (:, :) = 6 j = f1 (i) - if (any (j .ne. 21)) call abort () + if (any (j .ne. 21)) STOP 1 i (:, :) = 7 j = e1 (i) j (:, :) = 49 - if (any (j .ne. 49)) call abort () + if (any (j .ne. 49)) STOP 2 r = f2 () - if (any (r .ne. 45)) call abort () + if (any (r .ne. 45)) STOP 3 r = e2 () - if (any (r .ne. 45)) call abort () + if (any (r .ne. 45)) STOP 4 e = f3 () - if (any (e .ne. 47)) call abort () + if (any (e .ne. 47)) STOP 5 e = e3 () - if (any (e .ne. 47)) call abort () + if (any (e .ne. 47)) STOP 6 d (:, :) = 17 e = f4 (d) - if (any (e .ne. 32)) call abort () + if (any (e .ne. 32)) STOP 7 e = e4 (d) - if (any (e .ne. 59)) call abort () + if (any (e .ne. 59)) STOP 8 j = f5 () - if (any (j .ne. 45)) call abort () + if (any (j .ne. 45)) STOP 9 j = e5 () - if (any (j .ne. 45)) call abort () + if (any (j .ne. 45)) STOP 10 r = f6 () - if (any (r .ne. 47)) call abort () + if (any (r .ne. 47)) STOP 11 r = e6 () - if (any (r .ne. 47)) call abort () + if (any (r .ne. 47)) STOP 12 end diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/entry_7.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/entry_7.f90 index 28a8a3f7838..75221e41c6b 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/entry_7.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/entry_7.f90 @@ -90,17 +90,17 @@ end function end interface double precision d - if (f1 (6) .ne. 21) call abort () - if (e1 (7) .ne. 49) call abort () - if (f2 () .ne. 45) call abort () - if (e2 () .ne. 45) call abort () - if (f3 () .ne. 47) call abort () - if (e3 () .ne. 47) call abort () + if (f1 (6) .ne. 21) STOP 1 + if (e1 (7) .ne. 49) STOP 2 + if (f2 () .ne. 45) STOP 3 + if (e2 () .ne. 45) STOP 4 + if (f3 () .ne. 47) STOP 5 + if (e3 () .ne. 47) STOP 6 d = 17 - if (f4 (d) .ne. 32) call abort () - if (e4 (d) .ne. 59) call abort () - if (f5 () .ne. 45) call abort () - if (e5 () .ne. 45) call abort () - if (f6 () .ne. 47) call abort () - if (e6 () .ne. 47) call abort () + if (f4 (d) .ne. 32) STOP 7 + if (e4 (d) .ne. 59) STOP 8 + if (f5 () .ne. 45) STOP 9 + if (e5 () .ne. 45) STOP 10 + if (f6 () .ne. 47) STOP 11 + if (e6 () .ne. 47) STOP 12 end diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/entry_8.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/entry_8.f90 index c68d75af768..15f80fcc1bf 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/entry_8.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/entry_8.f90 @@ -18,7 +18,7 @@ use entry_8_m type (t) :: f, g, res res = f (42) -if (res%i /= 42) call abort () +if (res%i /= 42) STOP 1 res = g (1.) -if (any (res%x /= 1.)) call abort () +if (any (res%x /= 1.)) STOP 2 end diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/entry_9.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/entry_9.f90 index d29f4b8344c..5d29fd12144 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/entry_9.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/entry_9.f90 @@ -17,8 +17,8 @@ program entrytest integer f1, e1 real f2, e2 - if (f1 (6) .ne. 21) call abort () - if (e1 () .ne. 42) call abort () - if (f2 () .ne. 45) call abort () - if (e2 () .ne. 45) call abort () + if (f1 (6) .ne. 21) STOP 1 + if (e1 () .ne. 42) STOP 2 + if (f2 () .ne. 45) STOP 3 + if (e2 () .ne. 45) STOP 4 end diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/enum_1.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/enum_1.f90 index 838b70c38db..c53e5658d23 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/enum_1.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/enum_1.f90 @@ -14,15 +14,15 @@ program main end enum - if (red /= 0 ) call abort - if (yellow /= 1) call abort - if (blue /= 2) call abort - if (green /= 3) call abort + if (red /= 0 ) STOP 1 + if (yellow /= 1) STOP 2 + if (blue /= 2) STOP 3 + if (green /= 3) STOP 4 - if (a /= 0 ) call abort - if (b /= 1) call abort - if (c /= 10) call abort - if (d /= 11) call abort + if (a /= 0 ) STOP 5 + if (b /= 1) STOP 6 + if (c /= 10) STOP 7 + if (d /= 11) STOP 8 end program main diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/enum_2.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/enum_2.f90 index d0acf6595c8..fcb37036644 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/enum_2.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/enum_2.f90 @@ -14,16 +14,16 @@ program main end enum - if (red /= 4 ) call abort - if (yellow /= (red + 1)) call abort - if (blue /= (yellow + 1)) call abort - if (green /= (blue + 1)) call abort + if (red /= 4 ) STOP 1 + if (yellow /= (red + 1)) STOP 2 + if (blue /= (yellow + 1)) STOP 3 + if (green /= (blue + 1)) STOP 4 - if (sun /= -10 ) call abort - if (mon /= (sun + 1)) call abort - if (tue /= (mon + 1)) call abort - if (wed /= 10) call abort - if (sat /= (wed+1)) call abort + if (sun /= -10 ) STOP 5 + if (mon /= (sun + 1)) STOP 6 + if (tue /= (mon + 1)) STOP 7 + if (wed /= 10) STOP 8 + if (sat /= (wed+1)) STOP 9 end program main diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/enum_3.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/enum_3.f90 index 71ab35d118b..ed99553695b 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/enum_3.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/enum_3.f90 @@ -21,37 +21,37 @@ program main end enum - if (red /= 0 ) call abort - if (yellow /= 255) call abort - if (blue /= 256) call abort + if (red /= 0 ) STOP 1 + if (yellow /= 255) STOP 2 + if (blue /= 256) STOP 3 - if (r /= 0 ) call abort - if (y /= 32767) call abort - if (b /= 32768) call abort + if (r /= 0 ) STOP 4 + if (y /= 32767) STOP 5 + if (b /= 32768) STOP 6 - if (kind (red) /= 4) call abort - if (kind (yellow) /= 4) call abort - if (kind (blue) /= 4) call abort + if (kind (red) /= 4) STOP 7 + if (kind (yellow) /= 4) STOP 8 + if (kind (blue) /= 4) STOP 9 - if (kind(r) /= 4 ) call abort - if (kind(y) /= 4) call abort - if (kind(b) /= 4) call abort + if (kind(r) /= 4 ) STOP 10 + if (kind(y) /= 4) STOP 11 + if (kind(b) /= 4) STOP 12 - if (aa /= 0 ) call abort - if (bb /= 65535) call abort - if (cc /= 65536) call abort + if (aa /= 0 ) STOP 13 + if (bb /= 65535) STOP 14 + if (cc /= 65536) STOP 15 - if (kind (aa) /= 4 ) call abort - if (kind (bb) /= 4) call abort - if (kind (cc) /= 4) call abort + if (kind (aa) /= 4 ) STOP 16 + if (kind (bb) /= 4) STOP 17 + if (kind (cc) /= 4) STOP 18 - if (m /= 0 ) call abort - if (n /= 2147483645) call abort - if (o /= 2147483646) call abort + if (m /= 0 ) STOP 19 + if (n /= 2147483645) STOP 20 + if (o /= 2147483646) STOP 21 - if (kind (m) /= 4 ) call abort - if (kind (n) /= 4) call abort - if (kind (o) /= 4) call abort + if (kind (m) /= 4 ) STOP 22 + if (kind (n) /= 4) STOP 23 + if (kind (o) /= 4) STOP 24 end program main diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/enum_4.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/enum_4.f90 index ff329dc7d41..f9032cc7f1b 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/enum_4.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/enum_4.f90 @@ -12,8 +12,8 @@ program main use mod implicit none - if (red /= 0 ) call abort - if (yellow /= 1) call abort - if (blue /= 2) call abort - if (green /= 3) call abort + if (red /= 0 ) STOP 1 + if (yellow /= 1) STOP 2 + if (blue /= 2) STOP 3 + if (green /= 3) STOP 4 end program main diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/equiv_1.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/equiv_1.f90 index b4719fcaa4a..6fbb447dbcf 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/equiv_1.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/equiv_1.f90 @@ -9,7 +9,7 @@ program prog k = 3 l = 4 - if ((a .ne. 3.0) .or. (b .ne. 3.0) .or. (c .ne. 3.0)) call abort () + if ((a .ne. 3.0) .or. (b .ne. 3.0) .or. (c .ne. 3.0)) STOP 1 if ((i .ne. 4) .or. (j .ne. 4) .or. (k .ne. 4) .or. (l .ne. 4)) & - call abort () + STOP 2 end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/equiv_2.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/equiv_2.f90 index 1c88ff99643..b9e40f88386 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/equiv_2.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/equiv_2.f90 @@ -5,8 +5,8 @@ character*4 e equivalence (c(1:1), d(1)), (c(3:5), e(2:4)), (c(6:6), f(2)) c='abcdefgh' - if (c.ne.'abcdefgh'.or.d(1).ne.'a'.or.d(2).ne.'b') call abort - if (e.ne.'bcde'.or.f(1).ne.'e'.or.f(2).ne.'f') call abort + if (c.ne.'abcdefgh'.or.d(1).ne.'a'.or.d(2).ne.'b') STOP 1 + if (e.ne.'bcde'.or.f(1).ne.'e'.or.f(2).ne.'f') STOP 2 end subroutine test1 subroutine test2 equivalence (c(1:1), d(1)), (c(3:5), e(2:4)), (c(6:6), f(2)) @@ -15,8 +15,8 @@ dimension d(2), f(2) character*4 e c='abcdefgh' - if (c.ne.'abcdefgh'.or.d(1).ne.'a'.or.d(2).ne.'b') call abort - if (e.ne.'bcde'.or.f(1).ne.'e'.or.f(2).ne.'f') call abort + if (c.ne.'abcdefgh'.or.d(1).ne.'a'.or.d(2).ne.'b') STOP 3 + if (e.ne.'bcde'.or.f(1).ne.'e'.or.f(2).ne.'f') STOP 4 end subroutine test2 subroutine test3 character*8 c @@ -25,8 +25,8 @@ equivalence (c(1:1), d(1)), (c(3:5), e(2:4)), (c(6:6), f(2)) dimension d(2), f(2) c='abcdefgh' - if (c.ne.'abcdefgh'.or.d(1).ne.'a'.or.d(2).ne.'b') call abort - if (e.ne.'bcde'.or.f(1).ne.'e'.or.f(2).ne.'f') call abort + if (c.ne.'abcdefgh'.or.d(1).ne.'a'.or.d(2).ne.'b') STOP 5 + if (e.ne.'bcde'.or.f(1).ne.'e'.or.f(2).ne.'f') STOP 6 end subroutine test3 subroutine test4 dimension d(2), f(2) @@ -35,8 +35,8 @@ character*1 d, f character*4 e c='abcdefgh' - if (c.ne.'abcdefgh'.or.d(1).ne.'a'.or.d(2).ne.'b') call abort - if (e.ne.'bcde'.or.f(1).ne.'e'.or.f(2).ne.'f') call abort + if (c.ne.'abcdefgh'.or.d(1).ne.'a'.or.d(2).ne.'b') STOP 7 + if (e.ne.'bcde'.or.f(1).ne.'e'.or.f(2).ne.'f') STOP 8 end subroutine test4 program main call test1 diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/equiv_3.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/equiv_3.f90 index 75103e200fb..ba50c194c55 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/equiv_3.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/equiv_3.f90 @@ -6,7 +6,7 @@ type(t) :: tc, td equivalence (tc, td) tc%c='abcdefgh' - if (tc%c.ne.'abcdefgh'.or.td%c(1:1).ne.'a') call abort + if (tc%c.ne.'abcdefgh'.or.td%c(1:1).ne.'a') STOP 1 end subroutine test1 program main call test1 diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/equiv_4.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/equiv_4.f90 index 9c232786dbb..0188a45ddda 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/equiv_4.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/equiv_4.f90 @@ -7,8 +7,8 @@ equivalence (c(6:6), f(2)(:)) d(1)='AB' c='abcdefgh' - if (c.ne.'abcdefgh'.or.d(1).ne.'Aa'.or.d(2).ne.'bc') call abort - if (e.ne.'bcde'.or.f(1).ne.'de'.or.f(2).ne.'fg') call abort + if (c.ne.'abcdefgh'.or.d(1).ne.'Aa'.or.d(2).ne.'bc') STOP 1 + if (e.ne.'bcde'.or.f(1).ne.'de'.or.f(2).ne.'fg') STOP 2 end subroutine test1 subroutine test2 equivalence (c(1:1), d(1)(2:2)), (c(3:5), e(2:4)) @@ -19,8 +19,8 @@ character*4 e d(1)='AB' c='abcdefgh' - if (c.ne.'abcdefgh'.or.d(1).ne.'Aa'.or.d(2).ne.'bc') call abort - if (e.ne.'bcde'.or.f(1).ne.'de'.or.f(2).ne.'fg') call abort + if (c.ne.'abcdefgh'.or.d(1).ne.'Aa'.or.d(2).ne.'bc') STOP 3 + if (e.ne.'bcde'.or.f(1).ne.'de'.or.f(2).ne.'fg') STOP 4 end subroutine test2 subroutine test3 character*8 c @@ -31,8 +31,8 @@ dimension d(2), f(2) d(1)='AB' c='abcdefgh' - if (c.ne.'abcdefgh'.or.d(1).ne.'Aa'.or.d(2).ne.'bc') call abort - if (e.ne.'bcde'.or.f(1).ne.'de'.or.f(2).ne.'fg') call abort + if (c.ne.'abcdefgh'.or.d(1).ne.'Aa'.or.d(2).ne.'bc') STOP 5 + if (e.ne.'bcde'.or.f(1).ne.'de'.or.f(2).ne.'fg') STOP 6 end subroutine test3 subroutine test4 dimension d(2), f(2) @@ -43,8 +43,8 @@ character*4 e d(1)='AB' c='abcdefgh' - if (c.ne.'abcdefgh'.or.d(1).ne.'Aa'.or.d(2).ne.'bc') call abort - if (e.ne.'bcde'.or.f(1).ne.'de'.or.f(2).ne.'fg') call abort + if (c.ne.'abcdefgh'.or.d(1).ne.'Aa'.or.d(2).ne.'bc') STOP 7 + if (e.ne.'bcde'.or.f(1).ne.'de'.or.f(2).ne.'fg') STOP 8 end subroutine test4 program main call test1 diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/equiv_init_1.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/equiv_init_1.f90 index d918097c5ee..ec928d00aec 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/equiv_init_1.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/equiv_init_1.f90 @@ -11,16 +11,16 @@ subroutine test0s equivalence (xs,ys) data xs /10*"abcdefghij"/ - if (y.ne."abcdefghij") call abort - if (ys(1).ne."abcdefghij") call abort - if (ys(10).ne."abcdefghij") call abort + if (y.ne."abcdefghij") STOP 1 + if (ys(1).ne."abcdefghij") STOP 2 + if (ys(10).ne."abcdefghij") STOP 3 end subroutine test0 integer :: x = 123 integer :: y equivalence (x,y) - if (y.ne.123) call abort + if (y.ne.123) STOP 4 end subroutine test1 @@ -30,10 +30,10 @@ subroutine test1 integer :: z = 3 equivalence (a(1), x) equivalence (a(3), z) - if (x.ne.1) call abort - if (z.ne.3) call abort - if (a(1).ne.1) call abort - if (a(3).ne.3) call abort + if (x.ne.1) STOP 5 + if (z.ne.3) STOP 6 + if (a(1).ne.1) STOP 7 + if (a(3).ne.3) STOP 8 end subroutine test2 @@ -42,8 +42,8 @@ subroutine test2 integer :: a(3) = 123 equivalence (a(1), x) equivalence (a(3), z) - if (x.ne.123) call abort - if (z.ne.123) call abort + if (x.ne.123) STOP 9 + if (z.ne.123) STOP 10 end subroutine test3 @@ -53,9 +53,9 @@ subroutine test3 integer :: a(3) equivalence (a(1),x), (a(2),y), (a(3),z) data a(1) /1/, a(3) /3/ - if (x.ne.1) call abort -!!$ if (y.ne.2) call abort - if (z.ne.3) call abort + if (x.ne.1) STOP 11 +!!$ if (y.ne.2) STOP 12 + if (z.ne.3) STOP 13 end subroutine test4 @@ -65,8 +65,8 @@ subroutine test4 equivalence (a(2),b(1)), (b(2),c) data a/1,2/ data c/3/ - if (b(1).ne.2) call abort - if (b(2).ne.3) call abort + if (b(1).ne.2) STOP 14 + if (b(2).ne.3) STOP 15 end !!$subroutine test5 @@ -77,8 +77,8 @@ end !!$ data a(1)/1/ !!$ data b(1)/2/ !!$ data c/3/ -!!$ if (a(2).ne.2) call abort -!!$ if (b(2).ne.3) call abort +!!$ if (a(2).ne.2) STOP 16 +!!$ if (b(2).ne.3) STOP 17 !!$ print *, "Passed test5" !!$end diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/f2_edit_1.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/f2_edit_1.f90 index cb2f5eacd33..333bfaefe8b 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/f2_edit_1.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/f2_edit_1.f90 @@ -5,6 +5,6 @@ RCON22 = .9 WRITE(LINE,'(F2.0,1H,,F2.1)')RCON21,RCON22 READ(LINE,'(F2.0,1X,F2.1)')XRCON21,XRCON22 - IF (RCON21.NE.XRCON21) CALL ABORT - IF (RCON22.NE.XRCON22) CALL ABORT + IF (RCON21.NE.XRCON21) STOP 1 + IF (RCON22.NE.XRCON22) STOP 2 END diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/forall.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/forall.f90 index b60e67fb0d7..56bf0240c24 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/forall.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/forall.f90 @@ -11,7 +11,7 @@ program testforall b(i) = sum (a(:, i)) end forall - if (b(1) .ne. 6) call abort - if (b(2) .ne. 15) call abort - if (b(3) .ne. 24) call abort + if (b(1) .ne. 6) STOP 1 + if (b(2) .ne. 15) STOP 2 + if (b(3) .ne. 24) STOP 3 end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/forall_1.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/forall_1.f90 index 806dede70f3..b0d402fcee5 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/forall_1.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/forall_1.f90 @@ -15,8 +15,8 @@ contains forall (x = 1:3, j = 1:4) a (x,j) = j end forall - if (any (a.ne.reshape ((/1,1,1,2,2,2,3,3,3,4,4,4/), (/3,4/)))) call abort - if ((x.ne.-1).or.(j.ne.100)) call abort + if (any (a.ne.reshape ((/1,1,1,2,2,2,3,3,3,4,4,4/), (/3,4/)))) STOP 1 + if ((x.ne.-1).or.(j.ne.100)) STOP 2 call actual_variable_2 (x, j, a) end subroutine @@ -31,9 +31,9 @@ contains b(x,j) = j end forall - if (any (a.ne.reshape ((/1,1,1,2,2,2,3,3,3,4,4,4/), (/3,4/)))) call abort - if (any (b.ne.reshape ((/1,1,1,2,2,2,3,3,3,4,4,4/), (/3,4/)))) call abort - if ((x.ne.-1).or.(j.ne.100)) call abort + if (any (a.ne.reshape ((/1,1,1,2,2,2,3,3,3,4,4,4/), (/3,4/)))) STOP 3 + if (any (b.ne.reshape ((/1,1,1,2,2,2,3,3,3,4,4,4/), (/3,4/)))) STOP 4 + if ((x.ne.-1).or.(j.ne.100)) STOP 5 end subroutine subroutine negative_stride () @@ -44,7 +44,7 @@ contains forall (x = 3:1:-1, j = 4:1:-1) a(x,j) = j + x end forall - if (any (a.ne.reshape ((/2,3,4,3,4,5,4,5,6,5,6,7/), (/3,4/)))) call abort + if (any (a.ne.reshape ((/2,3,4,3,4,5,4,5,6,5,6,7/), (/3,4/)))) STOP 6 end subroutine subroutine forall_index @@ -55,7 +55,7 @@ contains i10=1:2) a(i1+2*i3+4*i5+8*i7+16*i9-30,i2+2*i4+4*i6+8*i8+16*i10-30) = 1 end forall - if ((a(5,5).ne.1).or. (a(32,32).ne.1)) call abort + if ((a(5,5).ne.1).or. (a(32,32).ne.1)) STOP 7 end subroutine end diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/forall_2.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/forall_2.f90 index 92a4ff102cc..074850a6fa7 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/forall_2.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/forall_2.f90 @@ -15,6 +15,6 @@ program test end forall end forall if (any (a.ne.reshape ((/0,1,2,3,-1,0,2,3,-2,-1,0,1,-3,-2,-1,0/),& - (/4,4/)))) call abort + (/4,4/)))) STOP 1 end diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/forall_3.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/forall_3.f90 index cab07579539..4e6528fa3e1 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/forall_3.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/forall_3.f90 @@ -28,10 +28,10 @@ program evil_forall v(i)%p(1:v(i)%s) = v(6-i)%p(1:v(i)%s) end forall - if (any(v(1)%p(:) .ne. (/11, 10/))) call abort - if (any(v(2)%p(:) .ne. (/13, 14, 15, 16, 17, 18, 19, 20/))) call abort - if (any(v(4)%p(:) .ne. (/1, 2, 3, 4, 5, 6, 19, 20/))) call abort - if (any(v(5)%p(:) .ne. (/9, 10/))) call abort + if (any(v(1)%p(:) .ne. (/11, 10/))) STOP 1 + if (any(v(2)%p(:) .ne. (/13, 14, 15, 16, 17, 18, 19, 20/))) STOP 2 + if (any(v(4)%p(:) .ne. (/1, 2, 3, 4, 5, 6, 19, 20/))) STOP 3 + if (any(v(5)%p(:) .ne. (/9, 10/))) STOP 4 ! I should really free the memory I've allocated. end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/forall_4.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/forall_4.f90 index f2dded73587..98498dcf4ff 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/forall_4.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/forall_4.f90 @@ -22,6 +22,6 @@ program forall2 .ne. reshape((/ 1, 5, 9,13,& 2, 6,10, 8,& 3, 7,11,12,& - 4,14,15,16/),(/4,4/)))) call abort - if (any (a(:,:,2) .ne. a(:,:,1) + 16)) call abort + 4,14,15,16/),(/4,4/)))) STOP 1 + if (any (a(:,:,2) .ne. a(:,:,1) + 16)) STOP 2 end diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/forall_5.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/forall_5.f90 index 0595adf0c89..9b33e21e8fc 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/forall_5.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/forall_5.f90 @@ -20,9 +20,9 @@ program forall_5 t(i) = i enddo - if (any(q(1)%p .ne. (/1,2,3,4,5/))) call abort - if (any(q(2)%p .ne. (/1,2,3,4,5/))) call abort - if (any(q(3)%p .ne. (/6,7,8,9,10/))) call abort - if (any(q(4)%p .ne. (/11,12,13,14,15/))) call abort - if (any(q(5)%p .ne. (/16,17,18,19,20/))) call abort + if (any(q(1)%p .ne. (/1,2,3,4,5/))) STOP 1 + if (any(q(2)%p .ne. (/1,2,3,4,5/))) STOP 2 + if (any(q(3)%p .ne. (/6,7,8,9,10/))) STOP 3 + if (any(q(4)%p .ne. (/11,12,13,14,15/))) STOP 4 + if (any(q(5)%p .ne. (/16,17,18,19,20/))) STOP 5 end diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/forall_6.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/forall_6.f90 index b277814fb3f..af78ed36c61 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/forall_6.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/forall_6.f90 @@ -20,6 +20,6 @@ program forall_6 do i = 1,5 - if (q(i)%p .ne. t(6 - i)) call abort + if (q(i)%p .ne. t(6 - i)) STOP 1 end do end diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/forall_7.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/forall_7.f90 index 4a28928109c..ac7ef38251c 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/forall_7.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/forall_7.f90 @@ -77,12 +77,12 @@ program forall_7 s = r end if end if - if (a (i, j, k, l) /= r) call abort () - if (c (i, j, k, l) /= s) call abort () + if (a (i, j, k, l) /= r) STOP 1 + if (c (i, j, k, l) /= s) STOP 2 end do end do end do end do - if (any (a /= b .or. c /= d)) call abort () + if (any (a /= b .or. c /= d)) STOP 3 end diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/function_module_1.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/function_module_1.f90 index e57ff161d29..b7b2ad8bcd9 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/function_module_1.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/function_module_1.f90 @@ -32,5 +32,5 @@ program P1 implicit none p = 0 call AA () - if (p /= 1) call abort + if (p /= 1) STOP 1 end diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/getarg_1.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/getarg_1.f90 index 7189991f7eb..3cd27319949 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/getarg_1.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/getarg_1.f90 @@ -11,20 +11,20 @@ program getarg_1 I2 = 0 CALL GETARG(I2,ARGS2) - if (args2.ne.args) call abort + if (args2.ne.args) STOP 1 - if (args.eq.'') call abort + if (args.eq.'') STOP 2 I = 1 CALL GETARG(I,ARGS) - if (args.ne.'') call abort + if (args.ne.'') STOP 3 I = -1 CALL GETARG(I,ARGS) - if (args.ne.'') call abort + if (args.ne.'') STOP 4 ! Assume we won't have been called with more that 4 args. I = 4 CALL GETARG(I,ARGS) - if (args.ne.'') call abort + if (args.ne.'') STOP 5 I = 1000 CALL GETARG(I,ARGS) - if (args.ne.'') call abort + if (args.ne.'') STOP 6 end diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/hollerith.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/hollerith.f90 index aa7b17def75..2b23f705c7a 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/hollerith.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/hollerith.f90 @@ -4,6 +4,6 @@ program hollerith CHARACTER*4 LINE 100 FORMAT (4H12H4) WRITE(LINE,100) - IF (LINE .NE. '12H4') call abort () + IF (LINE .NE. '12H4') STOP 1 end diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/in-pack.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/in-pack.f90 index b9ea2683240..62ed71dedd5 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/in-pack.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/in-pack.f90 @@ -21,27 +21,27 @@ program main b4 = (/(2*cmplx(i,-i,kind=4),i=1,5)/) call csub4(a4(5:1:-1),b4(5:1:-1),5) aa4 = (/(cmplx(5-i+1,i-5-1,kind=4),i=1,5)/) - if (any(aa4 /= a4)) call abort + if (any(aa4 /= a4)) STOP 1 bb4 = (/(2*cmplx(5-i+1,i-5-1,kind=4),i=1,5)/) - if (any(bb4 /= b4)) call abort + if (any(bb4 /= b4)) STOP 2 a8 = (/(cmplx(i,-i,kind=8),i=1,5)/) b8 = (/(2*cmplx(i,-i,kind=8),i=1,5)/) call csub8(a8(5:1:-1),b8(5:1:-1),5) aa8 = (/(cmplx(5-i+1,i-5-1,kind=8),i=1,5)/) - if (any(aa8 /= a8)) call abort + if (any(aa8 /= a8)) STOP 3 bb8 = (/(2*cmplx(5-i+1,i-5-1,kind=8),i=1,5)/) - if (any(bb8 /= b8)) call abort + if (any(bb8 /= b8)) STOP 4 i4 = (/(i, i=1,5)/) call isub4(i4(5:1:-1),5) ii4 = (/(5-i+1,i=1,5)/) - if (any(ii4 /= i4)) call abort + if (any(ii4 /= i4)) STOP 5 i8 = (/(i,i=1,5)/) call isub8(i8(5:1:-1),5) ii8 = (/(5-i+1,i=1,5)/) - if (any(ii8 /= i8)) call abort + if (any(ii8 /= i8)) STOP 6 end program main @@ -51,9 +51,9 @@ subroutine csub4(a,b,n) complex(kind=4), dimension(n) :: aa, bb integer :: n, i aa = (/(cmplx(n-i+1,i-n-1,kind=4),i=1,n)/) - if (any(aa /= a)) call abort + if (any(aa /= a)) STOP 7 bb = (/(2*cmplx(n-i+1,i-n-1,kind=4),i=1,5)/) - if (any(bb /= b)) call abort + if (any(bb /= b)) STOP 8 a = (/(cmplx(i,-i,kind=4),i=1,5)/) b = (/(2*cmplx(i,-i,kind=4),i=1,5)/) end subroutine csub4 @@ -64,9 +64,9 @@ subroutine csub8(a,b,n) complex(kind=8), dimension(n) :: aa, bb integer :: n, i aa = (/(cmplx(n-i+1,i-n-1,kind=8),i=1,n)/) - if (any(aa /= a)) call abort + if (any(aa /= a)) STOP 9 bb = (/(2*cmplx(n-i+1,i-n-1,kind=8),i=1,5)/) - if (any(bb /= b)) call abort + if (any(bb /= b)) STOP 10 a = (/(cmplx(i,-i,kind=8),i=1,5)/) b = (/(2*cmplx(i,-i,kind=8),i=1,5)/) end subroutine csub8 @@ -77,7 +77,7 @@ subroutine isub4(a,n) integer(kind=4), dimension(n) :: aa integer :: n, i aa = (/(n-i+1,i=1,n)/) - if (any(aa /= a)) call abort + if (any(aa /= a)) STOP 11 a = (/(i,i=1,5)/) end subroutine isub4 @@ -87,6 +87,6 @@ subroutine isub8(a,n) integer(kind=8), dimension(n) :: aa integer :: n, i aa = (/(n-i+1,i=1,n)/) - if (any(aa /= a)) call abort + if (any(aa /= a)) STOP 12 a = (/(i,i=1,5)/) end subroutine isub8 diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/initialization_1.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/initialization_1.f90 index 2ccb45a2388..0505cb0240d 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/initialization_1.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/initialization_1.f90 @@ -5,6 +5,6 @@ contains subroutine x(a) character(8), intent(in) :: a(:) integer :: b(count(a < 'F')) -if (size(b) /= 1) call abort() +if (size(b) /= 1) STOP 1 end subroutine x end diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/initializer.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/initializer.f90 index 55cc185f370..c480d54877c 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/initializer.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/initializer.f90 @@ -16,11 +16,11 @@ program intializer character(15) :: d = "Teststring" integer, dimension(3) :: a = 1 - if (any (a .ne. 1)) call abort - if (test(11) .ne. 42) call abort + if (any (a .ne. 1)) STOP 1 + if (test(11) .ne. 42) STOP 2 ! The second call should return - if (test(0) .ne. 11) call abort + if (test(0) .ne. 11) STOP 3 - if (c .ne. "Hello World") call abort - if (d .ne. "Teststring") call abort + if (c .ne. "Hello World") STOP 4 + if (d .ne. "Teststring") STOP 5 end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/inquire_1.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/inquire_1.f90 index 8deb6b863b5..3e19a3c015b 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/inquire_1.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/inquire_1.f90 @@ -3,7 +3,7 @@ CHARACTER*10 ACCESS OPEN(UNIT=9,ACCESS='SEQUENTIAL') INQUIRE(UNIT=9,ACCESS=ACCESS,BLANK=BLANK) - IF(BLANK.NE.'NULL') CALL ABORT - IF(ACCESS.NE.'SEQUENTIAL') CALL ABORT + IF(BLANK.NE.'NULL') STOP 1 + IF(ACCESS.NE.'SEQUENTIAL') STOP 2 CLOSE(UNIT=9,STATUS='DELETE') END diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/inquire_2.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/inquire_2.f90 index 48105170248..ee57a1553be 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/inquire_2.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/inquire_2.f90 @@ -2,6 +2,6 @@ INTEGER UNIT OPEN(FILE='CSEQ', UNIT=23) INQUIRE(FILE='CSEQ',NUMBER=UNIT) - IF (UNIT.NE.23) CALL ABORT + IF (UNIT.NE.23) STOP 1 CLOSE(UNIT, STATUS='DELETE') END diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/inquire_3.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/inquire_3.f90 index 29d25812ab2..685091ba215 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/inquire_3.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/inquire_3.f90 @@ -4,10 +4,10 @@ WRITE(UNIT=9,REC=5) 1 INQUIRE(UNIT=9,NEXTREC=NREC) ! PRINT*,NREC - IF (NREC.NE.6) CALL ABORT + IF (NREC.NE.6) STOP 1 READ(UNIT=9,REC=1) MVI INQUIRE(UNIT=9,NEXTREC=NREC) - IF (NREC.NE.2) CALL ABORT + IF (NREC.NE.2) STOP 2 ! PRINT*,NREC CLOSE(UNIT=9,STATUS='DELETE') END diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/inquire_4.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/inquire_4.f90 index 2fa69cc3f9f..a5702f7232e 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/inquire_4.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/inquire_4.f90 @@ -7,14 +7,14 @@ INQUIRE(UNIT=10,NEXTREC=J) IF (J.NE.2) THEN ! PRINT*,'NEXTREC RETURNED ',J,' EXPECTED 2' - CALL ABORT + STOP 1 ENDIF 200 FORMAT(I4,/,I4) WRITE(UNIT=10,REC=2,FMT=200)2,3 INQUIRE(UNIT=10,NEXTREC=J) IF (J.NE.4) THEN ! PRINT*,'NEXTREC RETURNED ',J,' EXPECTED 4' - CALL ABORT + STOP 2 ENDIF CLOSE(UNIT=10,STATUS='DELETE') END diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/inquire_5.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/inquire_5.f90 index 1077650d87d..b5fd21c7931 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/inquire_5.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/inquire_5.f90 @@ -20,13 +20,13 @@ program inquire_5 unit1 = -1 exist1 = .false. inquire (file = 'inquire_5.txt', number = unit8, exist = exist8) - if (unit8 .ne. 78 .or. .not. exist8) call abort + if (unit8 .ne. 78 .or. .not. exist8) STOP 1 inquire (file = 'inquire_5.txt', number = unit4, exist = exist4) - if (unit4 .ne. 78 .or. .not. exist4) call abort + if (unit4 .ne. 78 .or. .not. exist4) STOP 2 inquire (file = 'inquire_5.txt', number = unit2, exist = exist2) - if (unit2 .ne. 78 .or. .not. exist2) call abort + if (unit2 .ne. 78 .or. .not. exist2) STOP 3 inquire (file = 'inquire_5.txt', number = unit1, exist = exist1) - if (unit1 .ne. 78 .or. .not. exist1) call abort + if (unit1 .ne. 78 .or. .not. exist1) STOP 4 del = 'delete' close (unit = 78, status = del) end diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/integer_select.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/integer_select.f90 index 765356d2610..ef2a96e953e 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/integer_select.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/integer_select.f90 @@ -8,20 +8,20 @@ PROGRAM Test_INTEGER_select SELECT CASE (I) CASE (:-1) - CALL abort + STOP 1 CASE (1:) - CALL abort + STOP 2 CASE DEFAULT CONTINUE END SELECT SELECT CASE (I) CASE (3,2,1) - CALL abort + STOP 3 CASE (0) CONTINUE CASE DEFAULT - call abort + STOP 4 END SELECT ! Not aborted by here, so it worked @@ -31,20 +31,20 @@ PROGRAM Test_INTEGER_select SELECT CASE (I) CASE (:-1) - CALL abort + STOP 5 CASE (1:) CONTINUE CASE DEFAULT - CALL abort + STOP 6 END SELECT SELECT CASE (I) CASE (3,2,1,:0) - CALL abort + STOP 7 CASE (maxI) CONTINUE CASE DEFAULT - call abort + STOP 8 END SELECT I = minI @@ -53,18 +53,18 @@ PROGRAM Test_INTEGER_select CASE (:-1) CONTINUE CASE (1:) - CALL abort + STOP 9 CASE DEFAULT - CALL abort + STOP 10 END SELECT SELECT CASE (I) CASE (3:,2,1,0) - CALL abort + STOP 11 CASE (minI) CONTINUE CASE DEFAULT - call abort + STOP 12 END SELECT END diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/integer_select_1.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/integer_select_1.f90 index 18bc79b4358..e1942f208b9 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/integer_select_1.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/integer_select_1.f90 @@ -1,17 +1,17 @@ INTEGER :: I = 1 SELECT CASE (I) CASE (-3:-5) ! Can never be matched - CALL abort + STOP 1 CASE (1) CONTINUE CASE DEFAULT - CALL abort + STOP 2 END SELECT I = -3 SELECT CASE (I) CASE (-3:-5) ! Can never be matched - CALL abort + STOP 3 CASE (1) CONTINUE CASE DEFAULT @@ -21,11 +21,11 @@ END SELECT I = -5 SELECT CASE (I) CASE (-3:-5) ! Can never be matched - CALL abort + STOP 4 CASE (-5) CONTINUE CASE DEFAULT - CALL abort + STOP 5 END SELECT END diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/internal_write.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/internal_write.f90 index 1e492977b06..71908273265 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/internal_write.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/internal_write.f90 @@ -6,6 +6,6 @@ IF (A.NE.'GCC ') THEN ! PRINT*,'A was not filled correctly by internal write' ! PRINT*,' A = ',A - CALL ABORT + STOP 1 ENDIF END diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_abs.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_abs.f90 index 9e44657bad1..0c0ff43b162 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_abs.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_abs.f90 @@ -8,26 +8,26 @@ program intrinsic_abs i = 42 i = abs(i) - if (i .ne. 42) call abort + if (i .ne. 42) STOP 1 i = -43 i = abs(i) - if (i .ne. 43) call abort + if (i .ne. 43) STOP 2 r = 42.0 r = abs(r) - if (r .ne. 42.0) call abort + if (r .ne. 42.0) STOP 3 r = -43.0 r = abs(r) - if (r .ne. 43.0) call abort + if (r .ne. 43.0) STOP 4 q = 42.0_8 q = abs(q) - if (q .ne. 42.0_8) call abort + if (q .ne. 42.0_8) STOP 5 q = -43.0_8 q = abs(q) - if (q .ne. 43.0_8) call abort + if (q .ne. 43.0_8) STOP 6 z = (3, 4) r = abs(z) - if (r .ne. 5) call abort + if (r .ne. 5) STOP 7 end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_achar.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_achar.f90 index fba0a08974f..78597f64434 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_achar.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_achar.f90 @@ -3,7 +3,7 @@ program intrinsic_achar integer i i = 32 - if (achar(i) .ne. " ") call abort + if (achar(i) .ne. " ") STOP 1 i = iachar("A") - if ((i .ne. 65) .or. char(i) .ne. "A") call abort + if ((i .ne. 65) .or. char(i) .ne. "A") STOP 2 end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_aint_anint.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_aint_anint.f90 index 16e816c6bd0..9b386e51c42 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_aint_anint.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_aint_anint.f90 @@ -6,7 +6,7 @@ subroutine real4test (op, res1, res2) real(kind=4) :: res1, res2 if (diff(aint(op), res1) .or. & - diff(anint(op), res2)) call abort + diff(anint(op), res2)) STOP 1 contains function diff(a, b) real(kind=4) :: a, b @@ -22,7 +22,7 @@ subroutine real8test (op, res1, res2) real(kind=8) :: res1, res2 if (diff(aint(op), res1) .or. & - diff(anint(op), res2)) call abort + diff(anint(op), res2)) STOP 2 contains function diff(a, b) real(kind=8) :: a, b diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_anyall.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_anyall.f90 index 4e392c56960..fdfc7900c34 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_anyall.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_anyall.f90 @@ -6,36 +6,36 @@ program anyall character(len=10) line a = .false. - if (any(a)) call abort + if (any(a)) STOP 1 a(1, 1) = .true. a(2, 3) = .true. - if (.not. any(a)) call abort + if (.not. any(a)) STOP 2 b = any(a, 1) - if (.not. b(1)) call abort - if (b(2)) call abort - if (.not. b(3)) call abort + if (.not. b(1)) STOP 3 + if (b(2)) STOP 4 + if (.not. b(3)) STOP 5 b = .false. write (line, 9000) any(a,1) read (line, 9000) b - if (.not. b(1)) call abort - if (b(2)) call abort - if (.not. b(3)) call abort + if (.not. b(1)) STOP 6 + if (b(2)) STOP 7 + if (.not. b(3)) STOP 8 a = .true. - if (.not. all(a)) call abort + if (.not. all(a)) STOP 9 a(1, 1) = .false. a(2, 3) = .false. - if (all(a)) call abort + if (all(a)) STOP 10 b = all(a, 1) - if (b(1)) call abort - if (.not. b(2)) call abort - if (b(3)) call abort + if (b(1)) STOP 11 + if (.not. b(2)) STOP 12 + if (b(3)) STOP 13 b = .false. write (line, 9000) all(a,1) read (line, 9000) b - if (b(1)) call abort - if (.not. b(2)) call abort - if (b(3)) call abort + if (b(1)) STOP 14 + if (.not. b(2)) STOP 15 + if (b(3)) STOP 16 9000 format (9L1) end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_associated.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_associated.f90 index 22ea6f0a62a..812fb7b6097 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_associated.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_associated.f90 @@ -20,17 +20,17 @@ subroutine pointer_to_section () window (1, 2) = 0161 t = associated (window, xy(2:4, 3:4)) - if (.not.t) call abort () + if (.not.t) STOP 1 ! Check that none of the array got mangled if ((xy(2, 3) .ne. 0101) .or. (xy (4, 4) .ne. 4161) & - .or. (xy(4, 3) .ne. 4101) .or. (xy (2, 4) .ne. 0161)) call abort () - if (any (xy(:, 1:2) .ne. 0)) call abort () - if (any (xy(:, 5) .ne. 0)) call abort () - if (any (xy (1, 3:4) .ne. 0)) call abort () - if (any (xy (5, 3:4) .ne. 0)) call abort () - if (xy(3, 3) .ne. 10) call abort () - if (xy(3, 4) .ne. 10) call abort () - if (any (xy(2:4, 3:4) .ne. window)) call abort () + .or. (xy(4, 3) .ne. 4101) .or. (xy (2, 4) .ne. 0161)) STOP 2 + if (any (xy(:, 1:2) .ne. 0)) STOP 3 + if (any (xy(:, 5) .ne. 0)) STOP 4 + if (any (xy (1, 3:4) .ne. 0)) STOP 5 + if (any (xy (5, 3:4) .ne. 0)) STOP 6 + if (xy(3, 3) .ne. 10) STOP 7 + if (xy(3, 4) .ne. 10) STOP 8 + if (any (xy(2:4, 3:4) .ne. window)) STOP 9 end subroutine sub1 (a, ap) @@ -43,7 +43,7 @@ end subroutine nullify_pp (a) integer, pointer :: a(:, :) - if (.not. associated (a)) call abort () + if (.not. associated (a)) STOP 10 nullify (a) end @@ -57,11 +57,11 @@ subroutine associate_1 () allocate (a(80, 80)) b => a - if (.not. associated(a)) call abort () - if (.not. associated(b)) call abort () + if (.not. associated(a)) STOP 11 + if (.not. associated(b)) STOP 12 call nullify_pp (a) - if (associated (a)) call abort () - if (.not. associated (b)) call abort () + if (associated (a)) STOP 13 + if (.not. associated (b)) STOP 14 end subroutine pointer_to_derived_1 () @@ -85,11 +85,11 @@ subroutine pointer_to_derived_1 () type(record2), target :: r2 nullify (r1%r1p, r2%r2p, e1%rp, e2%rp, e3%rp) - if (associated (r1%r1p)) call abort () - if (associated (r2%r2p)) call abort () - if (associated (e2%rp)) call abort () - if (associated (e1%rp)) call abort () - if (associated (e3%rp)) call abort () + if (associated (r1%r1p)) STOP 15 + if (associated (r2%r2p)) STOP 16 + if (associated (e2%rp)) STOP 17 + if (associated (e1%rp)) STOP 18 + if (associated (e3%rp)) STOP 19 r1%r1p => r2 r2%r2p => r1 r1%value = 11 @@ -99,18 +99,18 @@ subroutine pointer_to_derived_1 () e1%value = 33 e1%rp%value = 44 e1%rp%rp%value = 55 - if (.not. associated (r1%r1p)) call abort () - if (.not. associated (r2%r2p)) call abort () - if (.not. associated (e1%rp)) call abort () - if (.not. associated (e2%rp)) call abort () - if (associated (e3%rp)) call abort () - if (r1%r1p%value .ne. 22) call abort () - if (r2%r2p%value .ne. 11) call abort () - if (e1%value .ne. 33) call abort () - if (e2%value .ne. 44) call abort () - if (e3%value .ne. 55) call abort () - if (r1%value .ne. 11) call abort () - if (r2%value .ne. 22) call abort () + if (.not. associated (r1%r1p)) STOP 20 + if (.not. associated (r2%r2p)) STOP 21 + if (.not. associated (e1%rp)) STOP 22 + if (.not. associated (e2%rp)) STOP 23 + if (associated (e3%rp)) STOP 24 + if (r1%r1p%value .ne. 22) STOP 25 + if (r2%r2p%value .ne. 11) STOP 26 + if (e1%value .ne. 33) STOP 27 + if (e2%value .ne. 44) STOP 28 + if (e3%value .ne. 55) STOP 29 + if (r1%value .ne. 11) STOP 30 + if (r2%value .ne. 22) STOP 31 end @@ -126,9 +126,9 @@ subroutine associated_2 () endinterface xp => y - if (.not. associated (xp)) call abort () + if (.not. associated (xp)) STOP 32 call sub1 (x, xp) - if (associated (xp, y)) call abort () - if (.not. associated (xp, x)) call abort () + if (associated (xp, y)) STOP 33 + if (.not. associated (xp, x)) STOP 34 end diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_associated_2.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_associated_2.f90 index 5f353b2f85b..c7ed8509b29 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_associated_2.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_associated_2.f90 @@ -16,14 +16,14 @@ program intrinsic_associated_2 L84 = t8 .and. associated (a4p, a4) L48 = t4 .and. associated (a8p, a8) L88 = t8 .and. associated (a8p, a8) - if (.not. (L44 .and. L84 .and. L48 .and. L88)) call abort () + if (.not. (L44 .and. L84 .and. L48 .and. L88)) STOP 1 nullify (a4p, a8p) L44 = t4 .and. associated (a4p, a4) L84 = t8 .and. associated (a4p, a4) L48 = t4 .and. associated (a8p, a8) L88 = t8 .and. associated (a8p, a8) - if (L44 .and. L84 .and. L48 .and. L88) call abort () + if (L44 .and. L84 .and. L48 .and. L88) STOP 2 a4p => a4(1:10:2, 1:10:2) a8p => a8(1:4, 1:4) @@ -31,6 +31,6 @@ program intrinsic_associated_2 L84 = t8 .and. associated (a4p, a4(1:10:2, 1:10:2)) L48 = t4 .and. associated (a8p, a8(1:4, 1:4)) L88 = t8 .and. associated (a8p, a8(1:4, 1:4)) - if (.not. (L44 .and. L84 .and. L48 .and. L88)) call abort () + if (.not. (L44 .and. L84 .and. L48 .and. L88)) STOP 3 end diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_bitops.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_bitops.f90 index 7dcda255b96..3b7d0bd2d3b 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_bitops.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_bitops.f90 @@ -10,23 +10,23 @@ program intrinsic_bitops k = 12 a = 5 - if (.not. btest (i, o+1)) call abort - if (btest (i, o+2)) call abort - if (iand (i, j) .ne. 2) call abort - if (ibclr (j, o+1) .ne. 1) call abort - if (ibclr (j, o+2) .ne. 3) call abort - if (ibits (k, o+1, o+2) .ne. 2) call abort - if (ibset (j, o+1) .ne. 3) call abort - if (ibset (j, o+2) .ne. 7) call abort - if (ieor (i, j) .ne. 1) call abort - if (ior (i, j) .ne. 3) call abort - if (ishft (k, o+2) .ne. 48) call abort - if (ishft (k, o-3) .ne. 1) call abort - if (ishft (k, o) .ne. 12) call abort - if (ishftc (k, o+30) .ne. 3) call abort - if (ishftc (k, o-30) .ne. 48) call abort - if (ishftc (k, o+1, o+3) .ne. 9) call abort - if (not (i) .ne. -3) call abort - if (ishftc (a, 1, bit_size(a)) .ne. 10) call abort - if (ishftc (1, 1, 32) .ne. 2) call abort + if (.not. btest (i, o+1)) STOP 1 + if (btest (i, o+2)) STOP 2 + if (iand (i, j) .ne. 2) STOP 3 + if (ibclr (j, o+1) .ne. 1) STOP 4 + if (ibclr (j, o+2) .ne. 3) STOP 5 + if (ibits (k, o+1, o+2) .ne. 2) STOP 6 + if (ibset (j, o+1) .ne. 3) STOP 7 + if (ibset (j, o+2) .ne. 7) STOP 8 + if (ieor (i, j) .ne. 1) STOP 9 + if (ior (i, j) .ne. 3) STOP 10 + if (ishft (k, o+2) .ne. 48) STOP 11 + if (ishft (k, o-3) .ne. 1) STOP 12 + if (ishft (k, o) .ne. 12) STOP 13 + if (ishftc (k, o+30) .ne. 3) STOP 14 + if (ishftc (k, o-30) .ne. 48) STOP 15 + if (ishftc (k, o+1, o+3) .ne. 9) STOP 16 + if (not (i) .ne. -3) STOP 17 + if (ishftc (a, 1, bit_size(a)) .ne. 10) STOP 18 + if (ishftc (1, 1, 32) .ne. 2) STOP 19 end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_count.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_count.f90 index 0892d629c04..1c1c8f90912 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_count.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_count.f90 @@ -7,27 +7,27 @@ program intrinsic_count character(len=10) line a = .false. - if (count(a) .ne. 0) call abort + if (count(a) .ne. 0) STOP 1 a = .true. - if (count(a) .ne. 15) call abort + if (count(a) .ne. 15) STOP 2 a(1, 1) = .false. a(2, 2) = .false. a(2, 5) = .false. - if (count(a) .ne. 12) call abort + if (count(a) .ne. 12) STOP 3 write (line, 9000) count(a) read (line, 9000) i - if (i .ne. 12) call abort + if (i .ne. 12) STOP 4 b(1:3) = count(a, 2); - if (b(1) .ne. 4) call abort - if (b(2) .ne. 3) call abort - if (b(3) .ne. 5) call abort + if (b(1) .ne. 4) STOP 5 + if (b(2) .ne. 3) STOP 6 + if (b(3) .ne. 5) STOP 7 b = 0 write (line, 9000) count(a,2) read (line, 9000) b - if (b(1) .ne. 4) call abort - if (b(2) .ne. 3) call abort - if (b(3) .ne. 5) call abort + if (b(1) .ne. 4) STOP 8 + if (b(2) .ne. 3) STOP 9 + if (b(3) .ne. 5) STOP 10 9000 format(3I3) diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_cshift.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_cshift.f90 index f188cd8f4bb..df4305e0e47 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_cshift.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_cshift.f90 @@ -7,23 +7,23 @@ program intrinsic_cshift a = reshape ((/1, 2, 3, 4, 5, 6, 7, 8, 9/), (/3, 3/)) a = cshift (a, 1, 1) if (any (a .ne. reshape ((/2, 3, 1, 5, 6, 4, 8, 9, 7/), (/3, 3/)))) & - call abort + STOP 1 a = reshape ((/1, 2, 3, 4, 5, 6, 7, 8, 9/), (/3, 3/)) a = cshift (a, -2, dim = 2) if (any (a .ne. reshape ((/4, 5, 6, 7, 8, 9, 1, 2, 3/), (/3, 3/)))) & - call abort + STOP 2 ! Array shift a = reshape ((/1, 2, 3, 4, 5, 6, 7, 8, 9/), (/3, 3/)) a = cshift (a, (/1, 0, -1/)) if (any (a .ne. reshape ((/2, 3, 1, 4, 5, 6, 9, 7, 8/), (/3, 3/)))) & - call abort + STOP 3 a = reshape ((/1, 2, 3, 4, 5, 6, 7, 8, 9/), (/3, 3/)) a = cshift (a, (/2, -2, 0/), dim = 2) if (any (a .ne. reshape ((/7, 5, 3, 1, 8, 6, 4, 2, 9/), (/3, 3/)))) & - call abort + STOP 4 ! Test arrays > rank 2 b = reshape ((/1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 12, 13, 14, 15, 16, 17,& @@ -31,13 +31,13 @@ program intrinsic_cshift b = cshift (b, 1) if (any (b .ne. reshape ((/2, 3, 1, 5, 6, 4, 8, 9, 7, 12, 13, 11, 15,& 16, 14, 18, 19, 17/), (/3, 3, 2/)))) & - call abort + STOP 5 b = reshape ((/1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 12, 13, 14, 15, 16, 17,& 18, 19/), (/3, 3, 2/)) b = cshift (b, reshape ((/1, 2, 3, 4, 5, 6, 7, 8, 9/), (/3, 3/)), 3) if (any (b .ne. reshape ((/11, 2, 13, 4, 15, 6, 17, 8, 19, 1, 12, 3,& 14, 5, 16, 7, 18, 9/), (/3, 3, 2/)))) & - call abort + STOP 6 end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_dim.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_dim.f90 index 4753de3606d..8464931bf79 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_dim.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_dim.f90 @@ -7,14 +7,14 @@ program intrinsic_dim i = 1 j = 4 - if (dim (i, j) .ne. 0) call abort - if (dim (j, i) .ne. 3) call abort + if (dim (i, j) .ne. 0) STOP 1 + if (dim (j, i) .ne. 3) STOP 2 r = 1.0 s = 4.0 - if (dim (r, s) .ne. 0.0) call abort - if (dim (s, r) .ne. 3.0) call abort + if (dim (r, s) .ne. 0.0) STOP 3 + if (dim (s, r) .ne. 3.0) STOP 4 p = 1.0 q = 4.0 - if (dim (p, q) .ne. 0.0) call abort - if (dim (q, p) .ne. 3.0) call abort + if (dim (p, q) .ne. 0.0) STOP 5 + if (dim (q, p) .ne. 3.0) STOP 6 end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_dotprod.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_dotprod.f90 index 5444dd6dac1..fbf18bb6a02 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_dotprod.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_dotprod.f90 @@ -13,13 +13,13 @@ program testforall b = (/4, 5, 6/); c = (/4, 5, 6/); - if (dot_product(a, b) .ne. 32) call abort + if (dot_product(a, b) .ne. 32) STOP 1 r = dot_product(a, c) - if (abs(r - 32.0) .gt. 0.001) call abort + if (abs(r - 32.0) .gt. 0.001) STOP 2 z1 = (/(1.0, 2.0), (2.0, 3.0)/) z2 = (/(3.0, 4.0), (4.0, 5.0)/) z = dot_product (z1, z2) - if (abs (z - (34.0, -4.0)) .gt. 0.001) call abort + if (abs (z - (34.0, -4.0)) .gt. 0.001) STOP 3 end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_dprod.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_dprod.f90 index feb3367934b..a0b5406717e 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_dprod.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_dprod.f90 @@ -8,6 +8,6 @@ program intrinsic_dprod r = 2e30 s = 4e30 dp = dprod (r, s) - if ((dp .gt. 8.001d60) .or. (dp .lt. 7.999d60)) call abort + if ((dp .gt. 8.001d60) .or. (dp .lt. 7.999d60)) STOP 1 end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_dummy.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_dummy.f90 index 2e8a3401492..404d323ec93 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_dummy.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_dummy.f90 @@ -9,7 +9,7 @@ subroutine test (proc) b = sin (a) c = proc (a) - if (abs (b - c) .gt. 0.001) call abort + if (abs (b - c) .gt. 0.001) STOP 1 end subroutine diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_eoshift.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_eoshift.f90 index c4bbcdd689c..9fb91a4e890 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_eoshift.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_eoshift.f90 @@ -8,95 +8,95 @@ program intrinsic_eoshift a = reshape ((/1, 2, 3, 4, 5, 6, 7, 8, 9/), (/3, 3/)) a = eoshift (a, 1, 99, 1) if (any (a .ne. reshape ((/2, 3, 99, 5, 6, 99, 8, 9, 99/), (/3, 3/)))) & - call abort + STOP 1 a = reshape ((/1, 2, 3, 4, 5, 6, 7, 8, 9/), (/3, 3/)) a = eoshift (a, 9999, 99, 1) - if (any (a .ne. 99)) call abort + if (any (a .ne. 99)) STOP 2 a = reshape ((/1, 2, 3, 4, 5, 6, 7, 8, 9/), (/3, 3/)) a = eoshift (a, -2, dim = 2) if (any (a .ne. reshape ((/0, 0, 0, 0, 0, 0, 1, 2, 3/), (/3, 3/)))) & - call abort + STOP 3 a = reshape ((/1, 2, 3, 4, 5, 6, 7, 8, 9/), (/3, 3/)) a = eoshift (a, -9999, 99, 1) - if (any (a .ne. 99)) call abort + if (any (a .ne. 99)) STOP 4 ! Array shift and scalar bound. a = reshape ((/1, 2, 3, 4, 5, 6, 7, 8, 9/), (/3, 3/)) a = eoshift (a, (/1, 0, -1/), 99, 1) if (any (a .ne. reshape ((/2, 3, 99, 4, 5, 6, 99, 7, 8/), (/3, 3/)))) & - call abort + STOP 5 a = reshape ((/1, 2, 3, 4, 5, 6, 7, 8, 9/), (/3, 3/)) a = eoshift (a, (/9999, 0, -9999/), 99, 1) if (any (a .ne. reshape ((/99, 99, 99, 4, 5, 6, 99, 99, 99/), (/3, 3/)))) & - call abort + STOP 6 a = reshape ((/1, 2, 3, 4, 5, 6, 7, 8, 9/), (/3, 3/)) a = eoshift (a, (/2, -2, 0/), dim = 2) if (any (a .ne. reshape ((/7, 0, 3, 0, 0, 6, 0, 2, 9/), (/3, 3/)))) & - call abort + STOP 7 ! Scalar shift and array bound. a = reshape ((/1, 2, 3, 4, 5, 6, 7, 8, 9/), (/3, 3/)) a = eoshift (a, 1, (/99, -1, 42/), 1) if (any (a .ne. reshape ((/2, 3, 99, 5, 6, -1, 8, 9, 42/), (/3, 3/)))) & - call abort + STOP 8 a = reshape ((/1, 2, 3, 4, 5, 6, 7, 8, 9/), (/3, 3/)) a = eoshift (a, 9999, (/99, -1, 42/), 1) if (any (a .ne. reshape ((/99, 99, 99, -1, -1, -1, 42, 42, 42/), & - (/3, 3/)))) call abort + (/3, 3/)))) STOP 9 a = reshape ((/1, 2, 3, 4, 5, 6, 7, 8, 9/), (/3, 3/)) a = eoshift (a, -9999, (/99, -1, 42/), 1) if (any (a .ne. reshape ((/99, 99, 99, -1, -1, -1, 42, 42, 42/), & - (/3, 3/)))) call abort + (/3, 3/)))) STOP 10 a = reshape ((/1, 2, 3, 4, 5, 6, 7, 8, 9/), (/3, 3/)) a = eoshift (a, -2, (/99, -1, 42/), 2) if (any (a .ne. reshape ((/99, -1, 42, 99, -1, 42, 1, 2, 3/), (/3, 3/)))) & - call abort + STOP 11 a = reshape ((/1, 2, 3, 4, 5, 6, 7, 8, 9/), (/3, 3/)) bo = (/99, -1, 42/) a = eoshift (a, -2, bo, 2) if (any (a .ne. reshape ((/99, -1, 42, 99, -1, 42, 1, 2, 3/), (/3, 3/)))) & - call abort + STOP 12 ! Array shift and array bound. a = reshape ((/1, 2, 3, 4, 5, 6, 7, 8, 9/), (/3, 3/)) a = eoshift (a, (/1, 0, -1/), (/99, -1, 42/), 1) if (any (a .ne. reshape ((/2, 3, 99, 4, 5, 6, 42, 7, 8/), (/3, 3/)))) & - call abort + STOP 13 a = reshape ((/1, 2, 3, 4, 5, 6, 7, 8, 9/), (/3, 3/)) a = eoshift (a, (/2, -2, 0/), (/99, -1, 42/), 2) if (any (a .ne. reshape ((/7, -1, 3, 99, -1, 6, 99, 2, 9/), (/3, 3/)))) & - call abort + STOP 14 a = reshape ((/1, 2, 3, 4, 5, 6, 7, 8, 9/), (/3, 3/)) sh = (/ 3, -1, -3 /) bo = (/-999, -99, -9 /) a = eoshift(a, shift=sh, boundary=bo) if (any (a .ne. reshape ((/ -999, -999, -999, -99, 4, 5, -9, -9, -9 /), & - shape(a)))) call abort + shape(a)))) STOP 15 a = reshape ((/1, 2, 3, 4, 5, 6, 7, 8, 9/), (/3, 3/)) a = eoshift (a, (/9999, -9999, 0/), (/99, -1, 42/), 2) if (any (a .ne. reshape ((/99, -1, 3, 99, -1, 6, 99, -1, 9/), (/3, 3/)))) & - call abort + STOP 16 ! Test arrays > rank 2 b(:, :, 1) = reshape ((/1, 2, 3, 4, 5, 6, 7, 8, 9/), (/3, 3/)) b(:, :, 2) = 10 + reshape ((/1, 2, 3, 4, 5, 6, 7, 8, 9/), (/3, 3/)) b = eoshift (b, 1, 99, 1) if (any (b(:, :, 1) .ne. reshape ((/2, 3, 99, 5, 6, 99, 8, 9, 99/), (/3, 3/)))) & - call abort + STOP 17 if (any (b(:, :, 2) .ne. reshape ((/12, 13, 99, 15, 16, 99, 18, 19, 99/), (/3, 3/)))) & - call abort + STOP 18 ! TODO: Test array sections end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_fraction_exponent.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_fraction_exponent.f90 index c469cb4340b..ed7e2f1521d 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_fraction_exponent.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_fraction_exponent.f90 @@ -66,7 +66,7 @@ if (z .gt. 0) then else y = (y / 2.) * (2. ** (z + 1)) end if -if (abs (x - y) .gt. spacing (max (abs (x), abs (y)))) call abort() +if (abs (x - y) .gt. spacing (max (abs (x), abs (y)))) STOP 1 end subroutine test_8(x) @@ -79,6 +79,6 @@ if (z .gt. 0) then else y = (y / 2._8) * (2._8 ** (z + 1)) end if -if (abs (x - y) .gt. spacing (max (abs (x), abs(y)))) call abort() +if (abs (x - y) .gt. spacing (max (abs (x), abs(y)))) STOP 2 end diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_index.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_index.f90 index 76f0aae532a..bbfe0bf5a5e 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_index.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_index.f90 @@ -2,9 +2,9 @@ program test character(len=10) a integer w - if (index("FORTRAN", "R") .ne. 3) call abort - if (index("FORTRAN", "R", .TRUE.) .ne. 5) call abort - if (w ("FORTRAN") .ne. 3) call abort + if (index("FORTRAN", "R") .ne. 3) STOP 1 + if (index("FORTRAN", "R", .TRUE.) .ne. 5) STOP 2 + if (w ("FORTRAN") .ne. 3) STOP 3 end function w(str) diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_integer.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_integer.f90 index 43578ed54a7..e8b3f53e8e4 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_integer.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_integer.f90 @@ -13,6 +13,6 @@ subroutine test(val, res) integer, dimension(4) :: res if ((floor(val) .ne. res(1)) .or. (ceiling(val) .ne. res(2)) & - .or. (int(val) .ne. res(3)) .or. (nint(val) .ne. res(4))) call abort + .or. (int(val) .ne. res(3)) .or. (nint(val) .ne. res(4))) STOP 1 end subroutine end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_leadz.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_leadz.f90 index 80b61c83d29..0bb40e9b7ea 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_leadz.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_leadz.f90 @@ -12,35 +12,35 @@ program test_intrinsic_leadz integer(kind=4) :: z4, i4, e4 integer(kind=8) :: z8, i8, e8 - if (leadz(0_1) /= 8) call abort() - if (leadz(0_2) /= 16) call abort() - if (leadz(0_4) /= 32) call abort() - if (leadz(0_8) /= 64) call abort() - - if (leadz(1_1) /= 7) call abort() - if (leadz(1_2) /= 15) call abort() - if (leadz(1_4) /= 31) call abort() - if (leadz(1_8) /= 63) call abort() - - if (leadz(8_1) /= 4) call abort() - if (leadz(8_2) /= 12) call abort() - if (leadz(8_4) /= 28) call abort() - if (leadz(8_8) /= 60) call abort() - - if (leadz(z1) /= 8) call abort() - if (leadz(z2) /= 16) call abort() - if (leadz(z4) /= 32) call abort() - if (leadz(z8) /= 64) call abort() - - if (leadz(i1) /= 7) call abort() - if (leadz(i2) /= 15) call abort() - if (leadz(i4) /= 31) call abort() - if (leadz(i8) /= 63) call abort() - - if (leadz(e1) /= 4) call abort() - if (leadz(e2) /= 12) call abort() - if (leadz(e4) /= 28) call abort() - if (leadz(e8) /= 60) call abort() + if (leadz(0_1) /= 8) STOP 1 + if (leadz(0_2) /= 16) STOP 2 + if (leadz(0_4) /= 32) STOP 3 + if (leadz(0_8) /= 64) STOP 4 + + if (leadz(1_1) /= 7) STOP 5 + if (leadz(1_2) /= 15) STOP 6 + if (leadz(1_4) /= 31) STOP 7 + if (leadz(1_8) /= 63) STOP 8 + + if (leadz(8_1) /= 4) STOP 9 + if (leadz(8_2) /= 12) STOP 10 + if (leadz(8_4) /= 28) STOP 11 + if (leadz(8_8) /= 60) STOP 12 + + if (leadz(z1) /= 8) STOP 13 + if (leadz(z2) /= 16) STOP 14 + if (leadz(z4) /= 32) STOP 15 + if (leadz(z8) /= 64) STOP 16 + + if (leadz(i1) /= 7) STOP 17 + if (leadz(i2) /= 15) STOP 18 + if (leadz(i4) /= 31) STOP 19 + if (leadz(i8) /= 63) STOP 20 + + if (leadz(e1) /= 4) STOP 21 + if (leadz(e2) /= 12) STOP 22 + if (leadz(e4) /= 28) STOP 23 + if (leadz(e8) /= 60) STOP 24 end subroutine test_leadz end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_len.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_len.f90 index 9db8d407a94..8cc87c93476 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_len.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_len.f90 @@ -10,8 +10,8 @@ program test integer n a = w (n) - if ((a .ne. "01234567") .or. (n .ne. 8)) call abort - if (len(Tom%name) .ne. 10) call abort + if ((a .ne. "01234567") .or. (n .ne. 8)) STOP 1 + if (len(Tom%name) .ne. 10) STOP 2 call array_test() end @@ -26,6 +26,6 @@ end subroutine array_test implicit none character(len=10) a(4) - if (len(a) .NE. 10) call abort() + if (len(a) .NE. 10) STOP 1 end subroutine array_test diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_matmul.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_matmul.f90 index 9364f1e1d8b..fb95132e784 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_matmul.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_matmul.f90 @@ -16,17 +16,17 @@ program intrinsic_matmul y = (/1, 2, 3/) r = matmul(a, b) - if (any(r .ne. reshape((/14, 20, 26, 38/), (/2, 2/)))) call abort + if (any(r .ne. reshape((/14, 20, 26, 38/), (/2, 2/)))) STOP 1 v = matmul(x, a) - if (any(v .ne. (/5, 8, 11/))) call abort + if (any(v .ne. (/5, 8, 11/))) STOP 2 v(1:2) = matmul(a, y) - if (any(v(1:2) .ne. (/14, 20/))) call abort + if (any(v(1:2) .ne. (/14, 20/))) STOP 3 aa = reshape((/ 1.0, 1.0, 0.0, 1.0/), shape(aa)) cc = 42. cc(1:2,1:2) = matmul(aa, transpose(aa)) - if (any(cc(1:2,1:2) .ne. reshape((/ 1.0, 1.0, 1.0, 2.0 /), (/2,2/)))) call abort - if (any(cc(3:4,1:2) .ne. 42.)) call abort + if (any(cc(1:2,1:2) .ne. reshape((/ 1.0, 1.0, 1.0, 2.0 /), (/2,2/)))) STOP 4 + if (any(cc(3:4,1:2) .ne. 42.)) STOP 5 end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_merge.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_merge.f90 index b4fc18f4dd6..2353f311b13 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_merge.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_merge.f90 @@ -6,10 +6,10 @@ program intrinsic_merge a = (/-1, 2, 3/) i = 5 - if (merge (-1, 1, i .gt. 3) .ne. -1) call abort + if (merge (-1, 1, i .gt. 3) .ne. -1) STOP 1 i = 1 - if (merge (-1, 1, i .ge. 3) .ne. 1) call abort + if (merge (-1, 1, i .ge. 3) .ne. 1) STOP 2 b = merge(a, 0, a .ge. 0) - if (any (b .ne. (/0, 2, 3/))) call abort + if (any (b .ne. (/0, 2, 3/))) STOP 3 end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_minmax.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_minmax.f90 index 02feaad1523..af91fda4f96 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_minmax.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_minmax.f90 @@ -8,30 +8,30 @@ program intrinsic_minmax j = -2 k = 3 m = 4 - if (min (i, k) .ne. 1) call abort - if (min (i, j, k, m) .ne. -2) call abort - if (max (i, k) .ne. 3) call abort - if (max (i, j, k, m) .ne. 4) call abort - if (max (i+1, j) .ne. 2) call abort + if (min (i, k) .ne. 1) STOP 1 + if (min (i, j, k, m) .ne. -2) STOP 2 + if (max (i, k) .ne. 3) STOP 3 + if (max (i, j, k, m) .ne. 4) STOP 4 + if (max (i+1, j) .ne. 2) STOP 5 r = 1 s = -2 t = 3 u = 4 - if (min (r, t) .ne. 1) call abort - if (min (r, s, t, u) .ne. -2) call abort - if (max (r, t) .ne. 3) call abort - if (max (r, s, t, u) .ne. 4) call abort + if (min (r, t) .ne. 1) STOP 6 + if (min (r, s, t, u) .ne. -2) STOP 7 + if (max (r, t) .ne. 3) STOP 8 + if (max (r, s, t, u) .ne. 4) STOP 9 - if (max (4d0, r) .ne. 4d0) call abort - if (amax0 (i, j) .ne. 1.0) call abort - if (min1 (r, s) .ne. -2) call abort + if (max (4d0, r) .ne. 4d0) STOP 10 + if (amax0 (i, j) .ne. 1.0) STOP 11 + if (min1 (r, s) .ne. -2) STOP 12 ! Test simplify. - if (min (1, -2, 3, 4) .ne. -2) call abort - if (max (1, -2, 3, 4) .ne. 4) call abort - if (amax0 (1, -2) .ne. 1.0) call abort - if (min1 (1., -2.) .ne. -2) call abort + if (min (1, -2, 3, 4) .ne. -2) STOP 13 + if (max (1, -2, 3, 4) .ne. 4) STOP 14 + if (amax0 (1, -2) .ne. 1.0) STOP 15 + if (min1 (1., -2.) .ne. -2) STOP 16 end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_mmloc.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_mmloc.f90 index 03273e1b22c..a58bdeb68ea 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_mmloc.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_mmloc.f90 @@ -11,107 +11,107 @@ program testmmloc tr = .true. b = minloc (a, 1) - if (b(1) .ne. 1) call abort - if (b(2) .ne. 2) call abort - if (b(3) .ne. 3) call abort + if (b(1) .ne. 1) STOP 1 + if (b(2) .ne. 2) STOP 2 + if (b(3) .ne. 3) STOP 3 b = -1 write (line, 9000) minloc(a,1) read (line, 9000) b - if (b(1) .ne. 1) call abort - if (b(2) .ne. 2) call abort - if (b(3) .ne. 3) call abort + if (b(1) .ne. 1) STOP 4 + if (b(2) .ne. 2) STOP 5 + if (b(3) .ne. 3) STOP 6 m = .true. m(1, 1) = .false. m(1, 2) = .false. b = minloc (a, 1, m) - if (b(1) .ne. 2) call abort - if (b(2) .ne. 2) call abort - if (b(3) .ne. 3) call abort + if (b(1) .ne. 2) STOP 7 + if (b(2) .ne. 2) STOP 8 + if (b(3) .ne. 3) STOP 9 b = minloc (a, 1, m .and. tr) - if (b(1) .ne. 2) call abort - if (b(2) .ne. 2) call abort - if (b(3) .ne. 3) call abort + if (b(1) .ne. 2) STOP 10 + if (b(2) .ne. 2) STOP 11 + if (b(3) .ne. 3) STOP 12 b = -1 write (line, 9000) minloc(a, 1, m) read (line, 9000) b - if (b(1) .ne. 2) call abort - if (b(2) .ne. 2) call abort - if (b(3) .ne. 3) call abort + if (b(1) .ne. 2) STOP 13 + if (b(2) .ne. 2) STOP 14 + if (b(3) .ne. 3) STOP 15 b(1:2) = minloc(a) - if (b(1) .ne. 1) call abort - if (b(2) .ne. 1) call abort + if (b(1) .ne. 1) STOP 16 + if (b(2) .ne. 1) STOP 17 b = -1 write (line, 9000) minloc(a) read (line, 9000) b - if (b(1) .ne. 1) call abort - if (b(2) .ne. 1) call abort - if (b(3) .ne. 0) call abort + if (b(1) .ne. 1) STOP 18 + if (b(2) .ne. 1) STOP 19 + if (b(3) .ne. 0) STOP 20 b(1:2) = minloc(a, mask=m) - if (b(1) .ne. 2) call abort - if (b(2) .ne. 1) call abort + if (b(1) .ne. 2) STOP 21 + if (b(2) .ne. 1) STOP 22 b(1:2) = minloc(a, mask=m .and. tr) - if (b(1) .ne. 2) call abort - if (b(2) .ne. 1) call abort + if (b(1) .ne. 2) STOP 23 + if (b(2) .ne. 1) STOP 24 b = -1 write (line, 9000) minloc(a, mask=m) read (line, 9000) b - if (b(1) .ne. 2) call abort - if (b(2) .ne. 1) call abort - if (b(3) .ne. 0) call abort + if (b(1) .ne. 2) STOP 25 + if (b(2) .ne. 1) STOP 26 + if (b(3) .ne. 0) STOP 27 b = maxloc (a, 1) - if (b(1) .ne. 3) call abort - if (b(2) .ne. 3) call abort - if (b(3) .ne. 1) call abort + if (b(1) .ne. 3) STOP 28 + if (b(2) .ne. 3) STOP 29 + if (b(3) .ne. 1) STOP 30 b = -1 write (line, 9000) maxloc(a, 1) read (line, 9000) b - if (b(1) .ne. 3) call abort - if (b(2) .ne. 3) call abort - if (b(3) .ne. 1) call abort + if (b(1) .ne. 3) STOP 31 + if (b(2) .ne. 3) STOP 32 + if (b(3) .ne. 1) STOP 33 m = .true. m(1, 2) = .false. m(1, 3) = .false. b = maxloc (a, 1, m) - if (b(1) .ne. 3) call abort - if (b(2) .ne. 3) call abort - if (b(3) .ne. 2) call abort + if (b(1) .ne. 3) STOP 34 + if (b(2) .ne. 3) STOP 35 + if (b(3) .ne. 2) STOP 36 b = maxloc (a, 1, m .and. tr) - if (b(1) .ne. 3) call abort - if (b(2) .ne. 3) call abort - if (b(3) .ne. 2) call abort + if (b(1) .ne. 3) STOP 37 + if (b(2) .ne. 3) STOP 38 + if (b(3) .ne. 2) STOP 39 b = -1 write (line, 9000) maxloc(a, 1, m) read (line, 9000) b - if (b(1) .ne. 3) call abort - if (b(2) .ne. 3) call abort - if (b(3) .ne. 2) call abort + if (b(1) .ne. 3) STOP 40 + if (b(2) .ne. 3) STOP 41 + if (b(3) .ne. 2) STOP 42 b(1:2) = maxloc(a) - if (b(1) .ne. 1) call abort - if (b(2) .ne. 3) call abort + if (b(1) .ne. 1) STOP 43 + if (b(2) .ne. 3) STOP 44 b = -1 write (line, 9000) maxloc(a) read (line, 9000) b - if (b(1) .ne. 1) call abort - if (b(2) .ne. 3) call abort + if (b(1) .ne. 1) STOP 45 + if (b(2) .ne. 3) STOP 46 b(1:2) = maxloc(a, mask=m) - if (b(1) .ne. 2) call abort - if (b(2) .ne. 3) call abort + if (b(1) .ne. 2) STOP 47 + if (b(2) .ne. 3) STOP 48 b(1:2) = maxloc(a, mask=m .and. tr) - if (b(1) .ne. 2) call abort - if (b(2) .ne. 3) call abort + if (b(1) .ne. 2) STOP 49 + if (b(2) .ne. 3) STOP 50 b = -1 write (line, 9000) maxloc(a, mask=m) read (line, 9000) b - if (b(1) .ne. 2) call abort - if (b(2) .ne. 3) call abort - if (b(3) .ne. 0) call abort + if (b(1) .ne. 2) STOP 51 + if (b(2) .ne. 3) STOP 52 + if (b(3) .ne. 0) STOP 53 9000 format (3I3) end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_mmloc_2.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_mmloc_2.f90 index 5f0b5b5da1d..d363f23e514 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_mmloc_2.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_mmloc_2.f90 @@ -10,13 +10,13 @@ program intrinsic_mmloc_2 b(2) = 1 c(1) = 1 - if (maxloc (a, 1) .ne. 1) call abort() - if (maxloc (b, 1) .ne. 1) call abort() - if (maxloc (c, 1) .ne. 1) call abort() + if (maxloc (a, 1) .ne. 1) STOP 1 + if (maxloc (b, 1) .ne. 1) STOP 2 + if (maxloc (c, 1) .ne. 1) STOP 3 ! We were giving MINLOC and MAXLOC the wrong return type vc = (/4.0d0, 2.50d1, 1.0d1/) i = minloc (vc) - if (i(1) .ne. 1) call abort() + if (i(1) .ne. 1) STOP 4 END PROGRAM diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_mmloc_3.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_mmloc_3.f90 index 078a08d70b4..7cce0bc2c76 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_mmloc_3.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_mmloc_3.f90 @@ -10,31 +10,31 @@ program intrinsic_mmloc_3 l = .true. d = -huge (d) - if (maxloc (d, 1) .ne. 1) call abort () + if (maxloc (d, 1) .ne. 1) STOP 1 d = huge (d) - if (minloc (d, 1) .ne. 1) call abort () + if (minloc (d, 1) .ne. 1) STOP 2 d = -huge (d) - if (maxloc (d, 1, k) .ne. 1) call abort () + if (maxloc (d, 1, k) .ne. 1) STOP 3 d = huge (d) - if (minloc (d, 1, k) .ne. 1) call abort () + if (minloc (d, 1, k) .ne. 1) STOP 4 a = -huge (a) d = maxloc (a) - if (any (d .ne. 1)) call abort () + if (any (d .ne. 1)) STOP 5 a = huge (a) d = minloc (a) - if (any (d .ne. 1)) call abort () + if (any (d .ne. 1)) STOP 6 a = -huge (a) d = maxloc (a, l) - if (any (d .ne. 1)) call abort () + if (any (d .ne. 1)) STOP 7 a = huge (a) d = minloc (a, l) - if (any (d .ne. 1)) call abort () + if (any (d .ne. 1)) STOP 8 end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_mmloc_4.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_mmloc_4.f90 index 2a53fb0124a..22b6afdebfe 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_mmloc_4.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_mmloc_4.f90 @@ -6,8 +6,8 @@ program intrinsic_mmloc_4 integer, dimension(2) :: b allocate (d(0)) - if (maxloc (d, 1) .ne. 0) call abort() + if (maxloc (d, 1) .ne. 0) STOP 1 allocate (a(1, 0)) b = minloc (a) - if (any (b .ne. 0)) call abort() + if (any (b .ne. 0)) STOP 2 end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_mmval.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_mmval.f90 index cfd1a5b2d74..5b2058335ee 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_mmval.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_mmval.f90 @@ -12,34 +12,34 @@ program testmmval tr = .true. b = minval (a, 1) - if (any(b .ne. (/1, 4, 7/))) call abort + if (any(b .ne. (/1, 4, 7/))) STOP 1 write (line, 9000) minval (a, 1) - if (line .ne. ' 1 4 7') call abort + if (line .ne. ' 1 4 7') STOP 2 m = .true. m(1, 1) = .false. m(1, 2) = .false. b = minval (a, 1, m) - if (any(b .ne. (/2, 4, 7/))) call abort + if (any(b .ne. (/2, 4, 7/))) STOP 3 b = minval (a, 1, m .and. tr) - if (any(b .ne. (/2, 4, 7/))) call abort + if (any(b .ne. (/2, 4, 7/))) STOP 4 write (line, 9000) minval(a, 1, m) - if (line .ne. ' 2 4 7') call abort + if (line .ne. ' 2 4 7') STOP 5 b = maxval (a, 1) - if (any(b .ne. (/3, 6, 9/))) call abort + if (any(b .ne. (/3, 6, 9/))) STOP 6 write (line, 9000) maxval (a, 1) - if (line .ne. ' 3 6 9') call abort + if (line .ne. ' 3 6 9') STOP 7 m = .true. m(1, 2) = .false. m(1, 3) = .false. b = maxval (a, 1, m) - if (any(b .ne. (/3, 6, 8/))) call abort + if (any(b .ne. (/3, 6, 8/))) STOP 8 b = maxval (a, 1, m .and. tr) - if (any(b .ne. (/3, 6, 8/))) call abort + if (any(b .ne. (/3, 6, 8/))) STOP 9 write (line, 9000) maxval(a, 1, m) - if (line .ne. ' 3 6 8') call abort + if (line .ne. ' 3 6 8') STOP 10 9000 format(3I3) end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_mod_ulo.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_mod_ulo.f90 index 4fdf42c37d7..c073e873942 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_mod_ulo.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_mod_ulo.f90 @@ -5,7 +5,7 @@ subroutine integertest (ops, res) integer, dimension(2) :: res if ((mod(ops(1), ops(2)) .ne. res(1)) .or. & - (modulo(ops(1), ops(2)) .ne. res(2))) call abort + (modulo(ops(1), ops(2)) .ne. res(2))) STOP 1 end subroutine subroutine real4test (ops, res) @@ -14,7 +14,7 @@ subroutine real4test (ops, res) real(kind=4), dimension(2) :: res if (diff(mod(ops(1), ops(2)), res(1)) .or. & - diff(modulo(ops(1), ops(2)), res(2))) call abort + diff(modulo(ops(1), ops(2)), res(2))) STOP 2 contains function diff(a, b) real(kind=4) :: a, b @@ -30,7 +30,7 @@ subroutine real8test (ops, res) real(kind=8), dimension(2) :: res if (diff(mod(ops(1), ops(2)), res(1)) .or. & - diff(modulo(ops(1), ops(2)), res(2))) call abort + diff(modulo(ops(1), ops(2)), res(2))) STOP 3 contains function diff(a, b) real(kind=8) :: a, b diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_mvbits.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_mvbits.f90 index 3437e9f0c9d..c423d4fe71c 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_mvbits.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_mvbits.f90 @@ -7,10 +7,10 @@ DATA to / z'77760000' / DATA result / z'7777FFFE' / CALL mvbits(from, 2, 16, to, 1) -if (to /= result) CALL abort() +if (to /= result) STOP 1 to8 = 0_8 from8 = b'1011'*2_8**32 call mvbits (from8, 33, 3, to8, 2) -if (to8 /= b'10100') call abort +if (to8 /= b'10100') STOP 1 end diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_nearest.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_nearest.f90 index 364a3ac345e..ec2bc186094 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_nearest.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_nearest.f90 @@ -23,7 +23,7 @@ program test_nearest s = 0 x = nearest(s, r) y = nearest(s, -r) - if (.not. (x .gt. s .and. y .lt. s )) call abort() + if (.not. (x .gt. s .and. y .lt. s )) STOP 1 ! ??? This is pretty sketchy, but passes on most targets. infi = z'7f800000' @@ -51,27 +51,27 @@ subroutine test_up(s, e) real s, e, x x = nearest(s, 1.0) - if (x .ne. e) call abort() + if (x .ne. e) STOP 2 end subroutine test_down(s, e) real s, e, x x = nearest(s, -1.0) - if (x .ne. e) call abort() + if (x .ne. e) STOP 3 end subroutine test_n(s1, r) real r, s1, x x = nearest(s1, r) - if (nearest(x, -r) .ne. s1) call abort() + if (nearest(x, -r) .ne. s1) STOP 4 x = nearest(s1, -r) - if (nearest(x, r) .ne. s1) call abort() + if (nearest(x, r) .ne. s1) STOP 5 s1 = -s1 x = nearest(s1, r) - if (nearest(x, -r) .ne. s1) call abort() + if (nearest(x, -r) .ne. s1) STOP 6 x = nearest(s1, -r) - if (nearest(x, r) .ne. s1) call abort() + if (nearest(x, r) .ne. s1) STOP 7 end diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_pack.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_pack.f90 index 28cd1cd8f03..96831a8de82 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_pack.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_pack.f90 @@ -7,18 +7,18 @@ program intrinsic_pack a = reshape (val, (/3, 3/)) b = 0 b(1:6:3) = pack (a, a .ne. 0); - if (any (b(1:6:3) .ne. (/9, 7/))) call abort + if (any (b(1:6:3) .ne. (/9, 7/))) STOP 1 b = pack (a(2:3, 2:3), a(2:3, 2:3) .ne. 0, (/1, 2, 3, 4, 5, 6/)); - if (any (b .ne. (/9, 7, 3, 4, 5, 6/))) call abort + if (any (b .ne. (/9, 7, 3, 4, 5, 6/))) STOP 2 call tests_with_temp() contains subroutine tests_with_temp ! A few tests which involve a temporary - if (any (pack(a, a.ne.0) .ne. (/9, 7/))) call abort - if (any (pack(a, .true.) .ne. val)) call abort - if (size(pack (a, .false.)) .ne. 0) call abort - if (any (pack(a, .false., (/1,2,3/)).ne. (/1,2,3/))) call abort + if (any (pack(a, a.ne.0) .ne. (/9, 7/))) STOP 3 + if (any (pack(a, .true.) .ne. val)) STOP 4 + if (size(pack (a, .false.)) .ne. 0) STOP 5 + if (any (pack(a, .false., (/1,2,3/)).ne. (/1,2,3/))) STOP 6 end subroutine tests_with_temp end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_present.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_present.f90 index d2e9981353d..7a16e902537 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_present.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_present.f90 @@ -6,14 +6,14 @@ program intrinsic_present integer, dimension(10) :: c integer, pointer, dimension(:) :: d - if (testvar()) call abort () - if (.not. testvar(a)) call abort () - if (testptr()) call abort () - if (.not. testptr(b)) call abort () - if (testarray()) call abort () - if (.not. testarray(c)) call abort () - if (testparray()) call abort () - if (.not. testparray(d)) call abort () + if (testvar()) STOP 1 + if (.not. testvar(a)) STOP 2 + if (testptr()) STOP 3 + if (.not. testptr(b)) STOP 4 + if (testarray()) STOP 5 + if (.not. testarray(c)) STOP 6 + if (testparray()) STOP 7 + if (.not. testparray(d)) STOP 8 contains logical function testvar (p) diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_product.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_product.f90 index 6ada0a42191..88162ca2cb2 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_product.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_product.f90 @@ -12,35 +12,35 @@ program testproduct tr = .true. - if (any(b .ne. (/6, 120, 504/))) call abort + if (any(b .ne. (/6, 120, 504/))) STOP 1 write (line, 9000) product(a,1) - if (line .ne. ' 6 120 504') call abort + if (line .ne. ' 6 120 504') STOP 2 - if (product (a) .ne. 362880) call abort + if (product (a) .ne. 362880) STOP 3 write (line, 9010) product(a) - if (line .ne. '362880') call abort + if (line .ne. '362880') STOP 4 m = .true. m(1, 1) = .false. m(2, 1) = .false. b = product (a, 2, m) - if (any(b .ne. (/28, 40, 162/))) call abort + if (any(b .ne. (/28, 40, 162/))) STOP 5 b = product (a, 2, m .and. tr) - if (any(b .ne. (/28, 40, 162/))) call abort + if (any(b .ne. (/28, 40, 162/))) STOP 6 write (line, 9000) product(a, 2, m) - if (line .ne. ' 28 40 162') call abort + if (line .ne. ' 28 40 162') STOP 7 - if (product (a, mask=m) .ne. 181440) call abort + if (product (a, mask=m) .ne. 181440) STOP 8 - if (product (a, mask=m .and. tr) .ne. 181440) call abort + if (product (a, mask=m .and. tr) .ne. 181440) STOP 9 write (line, 9010) product(a, mask=m) - if (line .ne. '181440') call abort + if (line .ne. '181440') STOP 10 9000 format (3I4) 9010 format (I6) diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_rrspacing.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_rrspacing.f90 index e74cf6494fc..fd65bce2032 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_rrspacing.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_rrspacing.f90 @@ -15,7 +15,7 @@ subroutine test_real4(orig) p = 24 y = abs (x * 2.0 ** (- exponent (x))) * (2.0 ** p) x = rrspacing(x) - if (abs (x - y) .gt. abs(x * 1e-6)) call abort + if (abs (x - y) .gt. abs(x * 1e-6)) STOP 1 end subroutine test_real8(orig) @@ -25,5 +25,5 @@ subroutine test_real8(orig) p = 53 y = abs (x * 2.0 ** (- exponent (x))) * (2.0 ** p) x = rrspacing(x) - if (abs (x - y) .gt. abs(x * 1e-6)) call abort + if (abs (x - y) .gt. abs(x * 1e-6)) STOP 2 end diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_scale.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_scale.f90 index 775c4d7b4b5..0fef35e1b37 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_scale.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_scale.f90 @@ -16,7 +16,7 @@ subroutine test_real4 (orig, i) x = orig y = x * (2.0 ** i) x = scale (x, i) - if (abs (x - y) .gt. abs(x * 1e-6)) call abort + if (abs (x - y) .gt. abs(x * 1e-6)) STOP 1 end subroutine test_real8 (orig, i) @@ -25,5 +25,5 @@ subroutine test_real8 (orig, i) x = orig y = x * (2.0 ** i) x = scale (x, i) - if (abs (x - y) .gt. abs(x * 1e-6)) call abort + if (abs (x - y) .gt. abs(x * 1e-6)) STOP 2 end diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_set_exponent.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_set_exponent.f90 index 6f934e591c0..b6ccaa56c44 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_set_exponent.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_set_exponent.f90 @@ -13,35 +13,35 @@ subroutine test_real4() n = -148 x = 1024.0 y = set_exponent (x, n) - if ((y .ne. 0.0) .and. (exponent (y) .ne. n)) call abort() + if ((y .ne. 0.0) .and. (exponent (y) .ne. n)) STOP 1 n = 8 x = 1024.0 y = set_exponent (x, n) - if (exponent (y) .ne. n) call abort() + if (exponent (y) .ne. n) STOP 2 n = 128 i = 8388607 x = transfer (i, x) ! z'007fffff' Positive denormalized floating-point. y = set_exponent (x, n) - if (exponent (y) .ne. n) call abort() + if (exponent (y) .ne. n) STOP 3 n = -148 x = -1024.0 y = set_exponent (x, n) - if ((y .ne. 0.0) .and. (exponent (y) .ne. n)) call abort() + if ((y .ne. 0.0) .and. (exponent (y) .ne. n)) STOP 4 n = 8 x = -1024.0 y = set_exponent (x, n) - if (y .ne. -128.0) call abort() - if (exponent (y) .ne. n) call abort() + if (y .ne. -128.0) STOP 5 + if (exponent (y) .ne. n) STOP 6 n = 128 i = -2139095041 x = transfer (i, x) ! z'807fffff' Negative denormalized floating-point. y = set_exponent (x, n) - if (exponent (y) .ne. n) call abort() + if (exponent (y) .ne. n) STOP 7 end @@ -54,34 +54,34 @@ subroutine test_real8() n = -1073 x = 1024.0_8 y = set_exponent (x, n) - if ((y .ne. 0.0_8) .and. (exponent (y) .ne. n)) call abort() + if ((y .ne. 0.0_8) .and. (exponent (y) .ne. n)) STOP 8 n = 8 x = 1024.0_8 y = set_exponent (x, n) - if (y .ne. 128.0) call abort() - if (exponent (y) .ne. n) call abort() + if (y .ne. 128.0) STOP 9 + if (exponent (y) .ne. n) STOP 10 n = 1024 i = 4503599627370495_8 x = transfer (i, x) !z'000fffffffffffff' Positive denormalized floating-point. y = set_exponent (x, n) - if (exponent (y) .ne. n) call abort() + if (exponent (y) .ne. n) STOP 11 n = -1073 x = -1024.0 y = set_exponent (x, n) - if ((y .ne. 0.0) .and. (exponent (y) .ne. n)) call abort() + if ((y .ne. 0.0) .and. (exponent (y) .ne. n)) STOP 12 n = 8 x = -1024.0 y = set_exponent (x, n) - if (y .ne. -128.0) call abort() - if (exponent (y) .ne. n) call abort() + if (y .ne. -128.0) STOP 13 + if (exponent (y) .ne. n) STOP 14 n = 1024 i = -9218868437227405313_8 x = transfer (i, x)!z'800fffffffffffff' Negative denormalized floating-point. y = set_exponent (x, n) - if (exponent (y) .ne. n) call abort() + if (exponent (y) .ne. n) STOP 15 end diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_shape.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_shape.f90 index e1c5f7b4ba1..eefd0ce64e8 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_shape.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_shape.f90 @@ -8,7 +8,7 @@ program testbounds allocate (a(3:8, 6:7)) j = shape (a); - if (any (j .ne. (/ 6, 2 /))) call abort + if (any (j .ne. (/ 6, 2 /))) STOP 1 call test(a) contains @@ -16,7 +16,7 @@ contains subroutine test (a) real, dimension (1:, 1:) :: a - if (any (shape (a) .ne. (/ 6, 2 /))) call abort + if (any (shape (a) .ne. (/ 6, 2 /))) STOP 2 end subroutine end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_si_kind.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_si_kind.f90 index b231dc66ebe..b9a0773a04c 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_si_kind.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_si_kind.f90 @@ -10,26 +10,26 @@ Program test_si_kind t = huge (i1) t = log10 (t) res = selected_int_kind (int (t)) - if (res .ne. 1) call abort + if (res .ne. 1) STOP 1 t = huge (i2) t = log10 (t) res = selected_int_kind (int (t)) - if (res .ne. 2) call abort + if (res .ne. 2) STOP 2 t = huge (i4) t = log10 (t) res = selected_int_kind (int (t)) - if (res .ne. 4) call abort + if (res .ne. 4) STOP 3 t = huge (i8) t = log10 (t) res = selected_int_kind (int (t)) - if (res .ne. 8) call abort + if (res .ne. 8) STOP 4 i4 = huge (i4) res = selected_int_kind (i4) - if (res .ne. (-1)) call abort + if (res .ne. (-1)) STOP 5 end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_sign.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_sign.f90 index fbc457d917c..f5e717853e1 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_sign.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_sign.f90 @@ -6,26 +6,26 @@ program intrinsic_sign i = 2 j = 3 - if (sign (i, j) .ne. 2) call abort + if (sign (i, j) .ne. 2) STOP 1 i = 4 j = -5 - if (sign (i, j) .ne. -4) call abort + if (sign (i, j) .ne. -4) STOP 2 i = -6 j = 7 - if (sign (i, j) .ne. 6) call abort + if (sign (i, j) .ne. 6) STOP 3 i = -8 j = -9 - if (sign (i, j) .ne. -8) call abort + if (sign (i, j) .ne. -8) STOP 4 r = 1 s = 2 - if (sign (r, s) .ne. 1) call abort + if (sign (r, s) .ne. 1) STOP 5 r = 1 s = -2 - if (sign (r, s) .ne. -1) call abort + if (sign (r, s) .ne. -1) STOP 6 s = 0 - if (sign (r, s) .ne. 1) call abort + if (sign (r, s) .ne. 1) STOP 7 ! Will fail on machines which cannot represent negative zero. s = -s ! Negative zero - if (sign (r, s) .ne. -1) call abort + if (sign (r, s) .ne. -1) STOP 8 end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_size.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_size.f90 index 729c55f2283..d84e7e6dcae 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_size.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_size.f90 @@ -6,21 +6,21 @@ program testsize integer, dimension(2, 3) :: b integer i - if (size (b(2, :), 1) .ne. 3) call abort + if (size (b(2, :), 1) .ne. 3) STOP 1 allocate (a(3:8, 5:7)) ! With one parameter - if (size(a) .ne. 18) call abort + if (size(a) .ne. 18) STOP 2 ! With two parameters, assigning to an array j = size(a, 1) - if (any (j .ne. (/6, 6, 6, 6, 6/))) call abort + if (any (j .ne. (/6, 6, 6, 6, 6/))) STOP 3 ! With a variable second parameter i = 2 i = size(a, i) - if (i .ne. 3) call abort + if (i .ne. 3) STOP 4 call test(a) contains @@ -30,8 +30,8 @@ subroutine test (a) integer i i = 2 - if ((size(a, 1) .ne. 6) .or. (size(a, i) .ne. 3)) call abort - if (size (a) .ne. 18 ) call abort + if ((size(a, 1) .ne. 6) .or. (size(a, i) .ne. 3)) STOP 5 + if (size (a) .ne. 18 ) STOP 6 end subroutine end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_spacing.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_spacing.f90 index 24b31dac2a6..0685717c38a 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_spacing.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_spacing.f90 @@ -19,7 +19,7 @@ subroutine test_real4(orig) t = tiny(x) x = spacing(x) if ((abs (x - y) .gt. abs(x * 1e-6)) & - .and. (abs (x - t) .gt. abs(x * 1e-6)))call abort + .and. (abs (x - t) .gt. abs(x * 1e-6)))STOP 1 end subroutine test_real8(orig) @@ -31,5 +31,5 @@ subroutine test_real8(orig) t = tiny (x) x = spacing(x) if ((abs (x - y) .gt. abs(x * 1e-6)) & - .and. (abs (x - t) .gt. abs(x * 1e-6)))call abort + .and. (abs (x - t) .gt. abs(x * 1e-6)))STOP 2 end diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_spread.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_spread.f90 index 8a89b2d731a..b1d8940ac25 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_spread.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_spread.f90 @@ -7,11 +7,11 @@ program foo b = spread (a, 1, 2) if (any (b .ne. reshape ((/1, 1, 2, 2, 3, 3, 4, 4, 5, 5, 6, 6/), & (/2, 2, 3/)))) & - call abort + STOP 1 write(line1, 9000) b write(line2, 9000) spread (a, 1, 2) - if (line1 /= line2) call abort + if (line1 /= line2) STOP 2 write(line3, 9000) spread (a, 1, 2) + 0 - if (line1 /= line3) call abort + if (line1 /= line3) STOP 3 9000 format(12I3) end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_sr_kind.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_sr_kind.f90 index c34a6ca5568..317e494445c 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_sr_kind.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_sr_kind.f90 @@ -13,50 +13,50 @@ Program test_sr_kind if (i8 .gt. t) i8 = t res = selected_real_kind (r = i4) - if (res .ne. 4) call abort + if (res .ne. 4) STOP 1 res = selected_real_kind (r = i8) - if (res .ne. 8) call abort + if (res .ne. 8) STOP 2 ! We can in fact have kinds wider than r8. How do we want to check? ! res = selected_real_kind (r = (i8 + 1)) -! if (res .ne. -2) call abort +! if (res .ne. -2) STOP 3 res = selected_real_kind (p = precision (r4)) - if (res .ne. 4) call abort + if (res .ne. 4) STOP 4 res = selected_real_kind (p = precision (r4), r = i4) - if (res .ne. 4) call abort + if (res .ne. 4) STOP 5 res = selected_real_kind (p = precision (r4), r = i8) - if (res .ne. 8) call abort + if (res .ne. 8) STOP 6 ! res = selected_real_kind (p = precision (r4), r = i8 + 1) -! if (res .ne. -2) call abort +! if (res .ne. -2) STOP 7 res = selected_real_kind (p = precision (r8)) - if (res .ne. 8) call abort + if (res .ne. 8) STOP 8 res = selected_real_kind (p = precision (r8), r = i4) - if (res .ne. 8) call abort + if (res .ne. 8) STOP 9 res = selected_real_kind (p = precision (r8), r = i8) - if (res .ne. 8) call abort + if (res .ne. 8) STOP 10 ! res = selected_real_kind (p = precision (r8), r = i8 + 1) -! if (res .ne. -2) call abort +! if (res .ne. -2) STOP 11 ! res = selected_real_kind (p = (precision (r8) + 1)) -! if (res .ne. -1) call abort +! if (res .ne. -1) STOP 12 ! res = selected_real_kind (p = (precision (r8) + 1), r = i4) -! if (res .ne. -1) call abort +! if (res .ne. -1) STOP 13 ! res = selected_real_kind (p = (precision (r8) + 1), r = i8) -! if (res .ne. -1) call abort +! if (res .ne. -1) STOP 14 ! res = selected_real_kind (p = (precision (r8) + 1), r = i8 + 1) -! if (res .ne. -3) call abort +! if (res .ne. -3) STOP 15 end diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_sum.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_sum.f90 index 879fa0320dd..9a32b75e1ca 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_sum.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_sum.f90 @@ -11,37 +11,37 @@ program testforall tr = .true. - if (sum(a) .ne. 45) call abort + if (sum(a) .ne. 45) STOP 1 write (line, 9000) sum(a) - if (line .ne. ' 45 ') call abort + if (line .ne. ' 45 ') STOP 2 b = sum (a, 1) - if (b(1) .ne. 6) call abort - if (b(2) .ne. 15) call abort - if (b(3) .ne. 24) call abort + if (b(1) .ne. 6) STOP 3 + if (b(2) .ne. 15) STOP 4 + if (b(3) .ne. 24) STOP 5 write (line, 9000) sum (a, 1) - if (line .ne. ' 6 15 24') call abort + if (line .ne. ' 6 15 24') STOP 6 m = .true. m(1, 1) = .false. m(2, 1) = .false. - if (sum (a, mask=m) .ne. 42) call abort - if (sum (a, mask=m .and. tr) .ne. 42) call abort + if (sum (a, mask=m) .ne. 42) STOP 7 + if (sum (a, mask=m .and. tr) .ne. 42) STOP 8 write(line, 9000) sum (a, mask=m) - if (line .ne. ' 42 ') call abort + if (line .ne. ' 42 ') STOP 9 b = sum (a, 2, m) - if (b(1) .ne. 11) call abort - if (b(2) .ne. 13) call abort - if (b(3) .ne. 18) call abort + if (b(1) .ne. 11) STOP 10 + if (b(2) .ne. 13) STOP 11 + if (b(3) .ne. 18) STOP 12 b = sum (a, 2, m .and. tr) - if (b(1) .ne. 11) call abort - if (b(2) .ne. 13) call abort - if (b(3) .ne. 18) call abort + if (b(1) .ne. 11) STOP 13 + if (b(2) .ne. 13) STOP 14 + if (b(3) .ne. 18) STOP 15 write (line, 9000) sum (a, 2, m) - if (line .ne. ' 11 13 18') call abort + if (line .ne. ' 11 13 18') STOP 16 9000 format(3I3) end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_trailz.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_trailz.f90 index 948c806b4ac..82b41e545a4 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_trailz.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_trailz.f90 @@ -12,35 +12,35 @@ program test_intrinsic_trailz integer(kind=4) :: z4, i4, e4 integer(kind=8) :: z8, i8, e8 - if (trailz(0_1) /= 8) call abort() - if (trailz(0_2) /= 16) call abort() - if (trailz(0_4) /= 32) call abort() - if (trailz(0_8) /= 64) call abort() - - if (trailz(1_1) /= 0) call abort() - if (trailz(1_2) /= 0) call abort() - if (trailz(1_4) /= 0) call abort() - if (trailz(1_8) /= 0) call abort() - - if (trailz(8_1) /= 3) call abort() - if (trailz(8_2) /= 3) call abort() - if (trailz(8_4) /= 3) call abort() - if (trailz(8_8) /= 3) call abort() - - if (trailz(z1) /= 8) call abort() - if (trailz(z2) /= 16) call abort() - if (trailz(z4) /= 32) call abort() - if (trailz(z8) /= 64) call abort() - - if (trailz(i1) /= 0) call abort() - if (trailz(i2) /= 0) call abort() - if (trailz(i4) /= 0) call abort() - if (trailz(i8) /= 0) call abort() - - if (trailz(e1) /= 3) call abort() - if (trailz(e2) /= 3) call abort() - if (trailz(e4) /= 3) call abort() - if (trailz(e8) /= 3) call abort() + if (trailz(0_1) /= 8) STOP 1 + if (trailz(0_2) /= 16) STOP 2 + if (trailz(0_4) /= 32) STOP 3 + if (trailz(0_8) /= 64) STOP 4 + + if (trailz(1_1) /= 0) STOP 5 + if (trailz(1_2) /= 0) STOP 6 + if (trailz(1_4) /= 0) STOP 7 + if (trailz(1_8) /= 0) STOP 8 + + if (trailz(8_1) /= 3) STOP 9 + if (trailz(8_2) /= 3) STOP 10 + if (trailz(8_4) /= 3) STOP 11 + if (trailz(8_8) /= 3) STOP 12 + + if (trailz(z1) /= 8) STOP 13 + if (trailz(z2) /= 16) STOP 14 + if (trailz(z4) /= 32) STOP 15 + if (trailz(z8) /= 64) STOP 16 + + if (trailz(i1) /= 0) STOP 17 + if (trailz(i2) /= 0) STOP 18 + if (trailz(i4) /= 0) STOP 19 + if (trailz(i8) /= 0) STOP 20 + + if (trailz(e1) /= 3) STOP 21 + if (trailz(e2) /= 3) STOP 22 + if (trailz(e4) /= 3) STOP 23 + if (trailz(e8) /= 3) STOP 24 end subroutine test_trailz end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_transpose.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_transpose.f90 index e1f268e310d..3393b279430 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_transpose.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_transpose.f90 @@ -8,17 +8,17 @@ program intrinsic_transpose b = reshape ((/1, 2, 3, 4, 5, 6, 7, 8, 9/), (/3, 3/)) a = transpose (b) if (any (a .ne. reshape ((/1, 4, 7, 2, 5, 8, 3, 6, 9/), (/3, 3/)))) & - call abort + STOP 1 c = (0.0, 0.0) d = reshape ((/(1d0,2d0), (3d0, 4d0), (5d0, 6d0), (7d0, 8d0)/), (/2, 2/)) c = transpose (d); if (any (c .ne. reshape ((/(1d0, 2d0), (5d0, 6d0), & (3d0, 4d0), (7d0, 8d0)/), (/2, 2/)))) & - call abort (); + STOP 1; e = reshape ((/(1.0,2.0), (3.0, 4.0), (5.0, 6.0), (7.0, 8.0)/), (/2, 2/)) e = transpose (e); if (any (e .ne. reshape ((/(1.0, 2.0), (5.0, 6.0), & (3.0, 4.0), (7.0, 8.0)/), (/2, 2/)))) & - call abort (); + STOP 2; end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_trim.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_trim.f90 index d57610cca52..6db36ff6874 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_trim.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_trim.f90 @@ -4,15 +4,15 @@ program intrinsic_trim character(len=4) b,work a='1234 ' b=work(8,a) - if (llt(b,"1234")) call abort() + if (llt(b,"1234")) STOP 1 a=' ' b=trim(a) - if (b .gt. "") call abort() + if (b .gt. "") STOP 2 b='12' a=repeat(b,0) - if (a .gt. "") call abort() + if (a .gt. "") STOP 3 a=repeat(b,2) - if (a .ne. "12 12 ") call abort() + if (a .ne. "12 12 ") STOP 4 end function work(i,a) diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_unpack.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_unpack.f90 index 88f09c321b4..1e2e4f7c736 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_unpack.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_unpack.f90 @@ -10,12 +10,12 @@ program intrinsic_unpack a = reshape ((/1, 0, 0, 0, 1, 0, 0, 0, 1/), (/3, 3/)); b = unpack ((/2, 3, 4/), mask, a) if (any (b .ne. reshape ((/1, 2, 0, 3, 1, 0, 0, 0, 4/), (/3, 3/)))) & - call abort + STOP 1 write (line1,'(10I4)') b write (line2,'(10I4)') unpack((/2, 3, 4/), mask, a) - if (line1 .ne. line2) call abort + if (line1 .ne. line2) STOP 2 b = -1 b = unpack ((/2, 3, 4/), mask, 0) if (any (b .ne. reshape ((/0, 2, 0, 3, 0, 0, 0, 0, 4/), (/3, 3/)))) & - call abort + STOP 3 end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/iolength_1.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/iolength_1.f90 index 8b22b03a7ce..749da00e8cd 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/iolength_1.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/iolength_1.f90 @@ -11,6 +11,6 @@ program iolength_1 allocate(a(alength)) inquire (iolength = iol) a if ( 4*alength /= iol) then - call abort + STOP 1 end if end program iolength_1 diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/iolength_2.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/iolength_2.f90 index ac65778639e..19065e63961 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/iolength_2.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/iolength_2.f90 @@ -19,6 +19,6 @@ program iolength_2 type(foo) :: d inquire (iolength = iol) d if ( 32 /= iol) then - call abort + STOP 1 end if end program iolength_2 diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/iolength_3.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/iolength_3.f90 index 23f14c63660..28b0495095a 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/iolength_3.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/iolength_3.f90 @@ -10,6 +10,6 @@ program iolength_3 real(dp) :: c inquire (iolength = iol) a, b, c if ( 16 /= iol) then - call abort + STOP 1 end if end program iolength_3 diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/list_read_1.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/list_read_1.f90 index 0a20b4bde83..886d031c693 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/list_read_1.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/list_read_1.f90 @@ -33,7 +33,7 @@ read(nin, fmt = *) (x(i,j), j=1, n) if (debug) write(*, *) (x(i,j), j=1, n) do K = 1,n - if (x(i,k).ne.y(i,k)) call abort + if (x(i,k).ne.y(i,k)) STOP 1 end do end do m = 0 @@ -47,7 +47,7 @@ read(nin, fmt = *) (x(i,j), j=1, n) if (debug) write(*, *) (x(i,j), j=1, n) do K = 1,n - if (x(i,k).ne.y(i,k)) call abort + if (x(i,k).ne.y(i,k)) STOP 2 end do end do close(nin, status='delete') diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/logical_select_1.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/logical_select_1.f90 index 60c077c4347..5481578ef10 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/logical_select_1.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/logical_select_1.f90 @@ -2,46 +2,46 @@ LOGICAL :: L = .FALSE. SELECT CASE (L) CASE (.TRUE.) - CALL abort + STOP 1 CASE (.FALSE.) CONTINUE CASE DEFAULT - CALL abort + STOP 2 END SELECT SELECT CASE (L) CASE (.TRUE., .FALSE.) CONTINUE CASE DEFAULT - CALL abort + STOP 3 END SELECT SELECT CASE (L) CASE (.FALSE.) CONTINUE CASE DEFAULT - CALL abort + STOP 4 END SELECT SELECT CASE (L) CASE (.NOT. .TRUE.) CONTINUE CASE DEFAULT - CALL abort + STOP 5 END SELECT SELECT CASE (.NOT. L) CASE (.TRUE.) CONTINUE CASE DEFAULT - CALL abort + STOP 6 END SELECT SELECT CASE (Truth_or_Dare() .OR. L) CASE (.TRUE.) CONTINUE CASE DEFAULT - CALL abort + STOP 7 END SELECT CONTAINS diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/mainsub.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/mainsub.f90 index f84e91f2525..522e31c1c96 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/mainsub.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/mainsub.f90 @@ -6,7 +6,7 @@ program mainsub i = 0 call test (i) - if (i .ne. 42) call abort + if (i .ne. 42) STOP 1 end program subroutine test (p) diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/math.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/math.f90 index c21da09da21..17cc78f7a10 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/math.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/math.f90 @@ -5,8 +5,8 @@ subroutine dotest (n, val4, val8, known) real(kind=8) val8 integer n - if (abs (val4 - known) .gt. 0.001) call abort - if (abs (real (val8, kind=4) - known) .gt. 0.001) call abort + if (abs (val4 - known) .gt. 0.001) STOP 1 + if (abs (real (val8, kind=4) - known) .gt. 0.001) STOP 2 end subroutine subroutine dotestc (n, val4, val8, known) @@ -14,8 +14,8 @@ subroutine dotestc (n, val4, val8, known) complex(kind=4) val4, known complex(kind=8) val8 integer n - if (abs (val4 - known) .gt. 0.001) call abort - if (abs (cmplx (val8, kind=4) - known) .gt. 0.001) call abort + if (abs (val4 - known) .gt. 0.001) STOP 3 + if (abs (cmplx (val8, kind=4) - known) .gt. 0.001) STOP 4 end subroutine program testmath diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/module_init_1.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/module_init_1.f90 index 9996935f69e..216052ef6ed 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/module_init_1.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/module_init_1.f90 @@ -4,6 +4,6 @@ real, dimension(4) :: a data a(1:3:2) /2*1.0/ end module m1 use m1 -if (a(1).NE.1.) call abort() -if (a(1).NE.a(3)) call abort() +if (a(1).NE.1.) STOP 1 +if (a(1).NE.a(3)) STOP 2 end diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/module_interface_2.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/module_interface_2.f90 index dba736654c4..20f3933da1c 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/module_interface_2.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/module_interface_2.f90 @@ -11,14 +11,14 @@ contains subroutine bar (r) real r - if (r .ne. 1.0) call abort () + if (r .ne. 1.0) STOP 1 end subroutine end module subroutine myfoo (i) integer i - if (i .ne. 42) call abort () + if (i .ne. 42) STOP 2 end subroutine program test diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/nan_inf_fmt.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/nan_inf_fmt.f90 index 2ded0cbbb62..4da41236db2 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/nan_inf_fmt.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/nan_inf_fmt.f90 @@ -16,73 +16,73 @@ ! check a field width = 0 fmt = '(F0.0)' write(l,fmt=fmt)pos_inf - if (l.ne.'Inf') call abort + if (l.ne.'Inf') STOP 1 write(l,fmt=fmt)neg_inf - if (l.ne.'-Inf') call abort + if (l.ne.'-Inf') STOP 2 write(l,fmt=fmt)nan - if (l.ne.'NaN') call abort + if (l.ne.'NaN') STOP 3 ! check a field width < 3 fmt = '(F2.0)' write(l,fmt=fmt)pos_inf - if (l.ne.'**') call abort + if (l.ne.'**') STOP 4 write(l,fmt=fmt)neg_inf - if (l.ne.'**') call abort + if (l.ne.'**') STOP 5 write(l,fmt=fmt)nan - if (l.ne.'**') call abort + if (l.ne.'**') STOP 6 ! check a field width = 3 fmt = '(F3.0)' write(l,fmt=fmt)pos_inf - if (l.ne.'Inf') call abort + if (l.ne.'Inf') STOP 7 write(l,fmt=fmt)neg_inf - if (l.ne.'***') call abort + if (l.ne.'***') STOP 8 write(l,fmt=fmt)nan - if (l.ne.'NaN') call abort + if (l.ne.'NaN') STOP 9 ! check a field width > 3 fmt = '(F4.0)' write(l,fmt=fmt)pos_inf - if (l.ne.' Inf') call abort + if (l.ne.' Inf') STOP 10 write(l,fmt=fmt)neg_inf - if (l.ne.'-Inf') call abort + if (l.ne.'-Inf') STOP 11 write(l,fmt=fmt)nan - if (l.ne.' NaN') call abort + if (l.ne.' NaN') STOP 12 ! check a field width = 7 fmt = '(F7.0)' write(l,fmt=fmt)pos_inf - if (l.ne.' Inf') call abort + if (l.ne.' Inf') STOP 13 write(l,fmt=fmt)neg_inf - if (l.ne.' -Inf') call abort + if (l.ne.' -Inf') STOP 14 write(l,fmt=fmt)nan - if (l.ne.' NaN') call abort + if (l.ne.' NaN') STOP 15 ! check a field width = 8 fmt = '(F8.0)' write(l,fmt=fmt)pos_inf - if (l.ne.'Infinity') call abort + if (l.ne.'Infinity') STOP 16 write(l,fmt=fmt)neg_inf - if (l.ne.' -Inf') call abort + if (l.ne.' -Inf') STOP 17 write(l,fmt=fmt)nan - if (l.ne.' NaN') call abort + if (l.ne.' NaN') STOP 18 ! check a field width = 9 fmt = '(F9.0)' write(l,fmt=fmt)pos_inf - if (l.ne.' Infinity') call abort + if (l.ne.' Infinity') STOP 19 write(l,fmt=fmt)neg_inf - if (l.ne.'-Infinity') call abort + if (l.ne.'-Infinity') STOP 20 write(l,fmt=fmt)nan - if (l.ne.' NaN') call abort + if (l.ne.' NaN') STOP 21 ! check a field width = 14 fmt = '(F14.0)' write(l,fmt=fmt)pos_inf - if (l.ne.' Infinity') call abort + if (l.ne.' Infinity') STOP 22 write(l,fmt=fmt)neg_inf - if (l.ne.' -Infinity') call abort + if (l.ne.' -Infinity') STOP 23 write(l,fmt=fmt)nan - if (l.ne.' NaN') call abort + if (l.ne.' NaN') STOP 24 end diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/nestcons.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/nestcons.f90 index d2d54562503..6fd801da2e0 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/nestcons.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/nestcons.f90 @@ -5,5 +5,5 @@ program nestcons integer, dimension(6) :: w2 w2 = (/ 1, 2, w1(3:1:-1), 3 /) - if (any (w2 .ne. (/ 1, 2, 7, 6, 5, 3/))) call abort + if (any (w2 .ne. (/ 1, 2, 7, 6, 5, 3/))) STOP 1 end diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/nullarg.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/nullarg.f90 index 67e65f81f6c..30db4012f46 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/nullarg.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/nullarg.f90 @@ -5,7 +5,7 @@ CONTAINS SUBROUTINE A(B) REAL, POINTER :: B - IF (ASSOCIATED(B)) CALL ABORT() + IF (ASSOCIATED(B)) STOP 1 END SUBROUTINE A END MODULE T USE T diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/optstring_1.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/optstring_1.f90 index 58c397d1647..bf68bfbf5b3 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/optstring_1.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/optstring_1.f90 @@ -12,10 +12,10 @@ subroutine test(i, a, b, c) character(len=*), optional :: b integer, optional :: c if (i .eq. 1) then - if (a .ne. "test") call abort + if (a .ne. "test") STOP 1 else - if (b .ne. "Hello World") call abort - if (c .ne. 42) call abort + if (b .ne. "Hello World") STOP 2 + if (c .ne. 42) STOP 3 end if end subroutine end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/parameter_1.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/parameter_1.f90 index 8a8af73851d..c08501ee993 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/parameter_1.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/parameter_1.f90 @@ -6,7 +6,7 @@ program parameter_1 REAL, PARAMETER :: rr(10) = ii do i = 1, 10 - if (ii(i) /= i) call abort() - if (rr(i) /= i) call abort() + if (ii(i) /= i) STOP 1 + if (rr(i) /= i) STOP 2 end do end program parameter_1 diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/parameter_2.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/parameter_2.f90 index 1e971047242..4500aa80784 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/parameter_2.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/parameter_2.f90 @@ -3,5 +3,5 @@ module m end module m use m -if (p .ne. -1.) CALL abort() +if (p .ne. -1.) STOP 1 end diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/partparm.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/partparm.f90 index 839ecf02f69..9e3de3d651c 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/partparm.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/partparm.f90 @@ -2,7 +2,7 @@ subroutine test (p) integer, dimension (3) :: p - if (any (p .ne. (/ 2, 4, 6/))) call abort + if (any (p .ne. (/ 2, 4, 6/))) STOP 1 end subroutine program partparm diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/plusconst_1.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/plusconst_1.f90 index 7fc3eebb15b..bce2131a48f 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/plusconst_1.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/plusconst_1.f90 @@ -10,6 +10,6 @@ program plusconst_1 integer :: j = +100 if ((p .ne. 3.1415) .or. (i .ne. 42) .or. (q .ne. 1.234) .or. (j .ne. 100)) & - call abort + STOP 1 end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/power.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/power.f90 index 6866470dd6a..8fcda5ffa75 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/power.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/power.f90 @@ -9,67 +9,67 @@ program testpow i = 2 j = i ** 10 - if (abs (j - 1024) .gt. del) call abort + if (abs (j - 1024) .gt. del) STOP 1 j = i ** (-10) - if (abs (j - 0) .gt. del) call abort + if (abs (j - 0) .gt. del) STOP 2 j = i ** 0 - if (abs (j - 1) .gt. del) call abort + if (abs (j - 1) .gt. del) STOP 3 i = 1 j = i ** 10 - if (abs (j - 1) .gt. del) call abort + if (abs (j - 1) .gt. del) STOP 4 j = i ** (-10) - if (abs (j - 1) .gt. del) call abort + if (abs (j - 1) .gt. del) STOP 5 j = i ** 0 - if (abs (j - 1) .gt. del) call abort + if (abs (j - 1) .gt. del) STOP 6 i = -1 j = i ** 10 - if (abs (j - 1) .gt. del) call abort + if (abs (j - 1) .gt. del) STOP 7 j = i ** (-10) - if (abs (j - 1) .gt. del) call abort + if (abs (j - 1) .gt. del) STOP 8 j = i ** 0 - if (abs (j - 1) .gt. del) call abort + if (abs (j - 1) .gt. del) STOP 9 j = i ** 11 - if (abs (j - (-1)) .gt. del) call abort + if (abs (j - (-1)) .gt. del) STOP 10 j = i ** (-11) - if (abs (j - (-1)) .gt. del) call abort + if (abs (j - (-1)) .gt. del) STOP 11 c = (2.0, 3.0) z = c ** 2 - if (abs(z - (-5.0, 12.0)) .gt. del) call abort + if (abs(z - (-5.0, 12.0)) .gt. del) STOP 12 z = c ** 7 - if (abs(z - (6554.0, 4449.0)) .gt. del) call abort + if (abs(z - (6554.0, 4449.0)) .gt. del) STOP 13 two = 2.0 r = two ** 1 - if (abs (r - 2.0) .gt. del) call abort + if (abs (r - 2.0) .gt. del) STOP 14 r = two ** 2 - if (abs (r - 4.0) .gt. del) call abort + if (abs (r - 4.0) .gt. del) STOP 15 r = two ** 3 - if (abs (r - 8.0) .gt. del) call abort + if (abs (r - 8.0) .gt. del) STOP 16 r = two ** 4 - if (abs (r - 16.0) .gt. del) call abort + if (abs (r - 16.0) .gt. del) STOP 17 r = two ** 0 - if (abs (r - 1.0) .gt. del) call abort + if (abs (r - 1.0) .gt. del) STOP 18 r = two ** (-1) - if (abs (r - 0.5) .gt. del) call abort + if (abs (r - 0.5) .gt. del) STOP 19 r = two ** (-2) - if (abs (r - 0.25) .gt. del) call abort + if (abs (r - 0.25) .gt. del) STOP 20 r = two ** (-4) - if (abs (r - 0.0625) .gt. del) call abort + if (abs (r - 0.0625) .gt. del) STOP 21 s = 3.0 r = two ** s - if (abs (r - 8.0) .gt. del) call abort + if (abs (r - 8.0) .gt. del) STOP 22 s = -3.0 r = two ** s - if (abs (r - 0.125) .gt. del) call abort + if (abs (r - 0.125) .gt. del) STOP 23 i = 3 r = two ** i - if (abs (r - 8.0) .gt. del) call abort + if (abs (r - 8.0) .gt. del) STOP 24 i = -3 r = two ** i - if (abs (r - 0.125) .gt. del) call abort + if (abs (r - 0.125) .gt. del) STOP 25 c = (2.0, 3.0) c = c ** two - if (abs(c - (-5.0, 12.0)) .gt. del) call abort + if (abs(c - (-5.0, 12.0)) .gt. del) STOP 26 end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/pr19269-1.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/pr19269-1.f90 index 03224c38085..fb3bcc9ab83 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/pr19269-1.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/pr19269-1.f90 @@ -4,13 +4,13 @@ contains subroutine test (a) character (len = *), dimension (:, :) :: a - if (size (a, 1) .ne. 2) call abort - if (size (a, 2) .ne. 2) call abort - if (len (a) .ne. 1) call abort + if (size (a, 1) .ne. 2) STOP 1 + if (size (a, 2) .ne. 2) STOP 2 + if (len (a) .ne. 1) STOP 3 - if (a (1, 1) .ne. 'a') call abort - if (a (2, 1) .ne. 'b') call abort - if (a (1, 2) .ne. 'c') call abort - if (a (2, 2) .ne. 'd') call abort + if (a (1, 1) .ne. 'a') STOP 4 + if (a (2, 1) .ne. 'b') STOP 5 + if (a (1, 2) .ne. 'c') STOP 6 + if (a (2, 2) .ne. 'd') STOP 7 end subroutine test end program main diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/pr23373-1.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/pr23373-1.f90 index 8d5ee658df5..a6421e6de3e 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/pr23373-1.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/pr23373-1.f90 @@ -3,13 +3,13 @@ program main real, dimension (:), pointer :: x x => null () x => test (x) - if (.not. associated (x)) call abort - if (size (x) .ne. 10) call abort + if (.not. associated (x)) STOP 1 + if (size (x) .ne. 10) STOP 2 contains function test (p) real, dimension (:), pointer :: p, test - if (associated (p)) call abort + if (associated (p)) STOP 3 allocate (test (10)) - if (associated (p)) call abort + if (associated (p)) STOP 4 end function test end program main diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/pr23373-2.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/pr23373-2.f90 index f90a7357756..a1717074a16 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/pr23373-2.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/pr23373-2.f90 @@ -3,13 +3,13 @@ program main real, dimension (:), pointer :: x x => null () x => test () - if (.not. associated (x)) call abort - if (size (x) .ne. 10) call abort + if (.not. associated (x)) STOP 1 + if (size (x) .ne. 10) STOP 2 contains function test() real, dimension (:), pointer :: test - if (associated (x)) call abort + if (associated (x)) STOP 3 allocate (test (10)) - if (associated (x)) call abort + if (associated (x)) STOP 4 end function test end program main diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/pr32140.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/pr32140.f90 index a756e27792f..556de23a45f 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/pr32140.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/pr32140.f90 @@ -11,6 +11,6 @@ END MODULE USE TEST character(len=12) :: line write(line,'(3A4)') s2a_3("a","bb","ccc") -IF (line.NE."a bb ccc") CALL ABORT() +IF (line.NE."a bb ccc") STOP 1 END diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/pr40021.f b/gcc/testsuite/gfortran.fortran-torture/execute/pr40021.f index ddd269f2a46..d61c48e9f4f 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/pr40021.f +++ b/gcc/testsuite/gfortran.fortran-torture/execute/pr40021.f @@ -11,7 +11,7 @@ C Derived from lapack DATA DY/0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0/ CALL DAXPY (N,DA,DX,DY) DO 10 I = 1, N - if (DX(I).ne.DY(I)) call abort + if (DX(I).ne.DY(I)) STOP 1 10 CONTINUE STOP END diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/pr43390.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/pr43390.f90 index b54eef99f24..4c4c790d160 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/pr43390.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/pr43390.f90 @@ -2,8 +2,8 @@ logical :: l2(4) l1 = (/.TRUE.,.FALSE.,.TRUE.,.FALSE./) l2 = (/.FALSE.,.TRUE.,.FALSE.,.TRUE./) - if (dot_product (l1, l2)) call abort () + if (dot_product (l1, l2)) STOP 1 l2 = .TRUE. - if (.not.dot_product (l1, l2)) call abort () + if (.not.dot_product (l1, l2)) STOP 2 end diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/pr54767.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/pr54767.f90 index f95bff1b338..048e8021338 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/pr54767.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/pr54767.f90 @@ -21,7 +21,7 @@ SUBROUTINE XXX (IL, IU) ENDDO IF (ivvv.NE.2) THEN - call abort + STOP 1 ENDIF END subroutine diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/pr57396.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/pr57396.f90 index 8ea92924ad8..8be01c98208 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/pr57396.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/pr57396.f90 @@ -20,7 +20,7 @@ module testmod r(k,k) = a(k, k - 1) * dj enddo - if (r(0,0) .ne. -2.) call abort + if (r(0,0) .ne. -2.) STOP 1 end subroutine diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/procarg.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/procarg.f90 index 37718f5fc43..46f3e37de51 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/procarg.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/procarg.f90 @@ -3,7 +3,7 @@ subroutine myp (a) implicit none integer a - if (a .ne. 42) call abort + if (a .ne. 42) STOP 1 end subroutine subroutine test2 (p) diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/ptr.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/ptr.f90 index 2675f0866c2..2c2f8f6f568 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/ptr.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/ptr.f90 @@ -8,13 +8,13 @@ program ptr a = (/ 1, 2, 3, 4, 5, 6 /) b => a - if (any (b .ne. (/ 1, 2, 3, 4, 5, 6 /))) call abort + if (any (b .ne. (/ 1, 2, 3, 4, 5, 6 /))) STOP 1 b => a(1:6:2) - if (any (b .ne. (/ 1, 3, 5/))) call abort + if (any (b .ne. (/ 1, 3, 5/))) STOP 2 p => i i = 42 - if (p .ne. 42) call abort + if (p .ne. 42) STOP 3 p => a(4) - if (p .ne. 4) call abort + if (p .ne. 4) STOP 4 end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/random_1.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/random_1.f90 index 900a724da6c..bbbc91d0aaf 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/random_1.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/random_1.f90 @@ -22,12 +22,12 @@ program test_random call random_number (b(1:5)) call random_seed(get=seed) call random_number (b(6:10)) - if (any (a .ne. b)) call abort + if (any (a .ne. b)) STOP 1 ! Get the last 5 numbers again. call random_seed (put=seed) call random_number (b(6:10)) - if (any (a .ne. b)) call abort + if (any (a .ne. b)) STOP 2 end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/random_2.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/random_2.f90 index 16668330589..2558b6aaf9f 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/random_2.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/random_2.f90 @@ -19,6 +19,6 @@ program random_4 call random_number(r8) call random_number (r8(10)) - if (any ((r4 - r8) .gt. delta)) call abort + if (any ((r4 - r8) .gt. delta)) STOP 1 end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/random_init.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/random_init.f90 index 36394589d8b..e7a3b8e2eb4 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/random_init.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/random_init.f90 @@ -5,7 +5,7 @@ real :: r(5) = 0.0 call random_number(r) - if (all (r .eq. 0)) call abort + if (all (r .eq. 0)) STOP 1 end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/read_eof.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/read_eof.f90 index b4bc8239b23..f472e9b444b 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/read_eof.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/read_eof.f90 @@ -1,6 +1,6 @@ ! PR 13919, segfault when file is empty open(unit=8,status='scratch') read(8,*,end=1)i - call abort + STOP 1 1 continue end diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/read_null_string.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/read_null_string.f90 index 7cf949204dc..c67433475ed 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/read_null_string.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/read_null_string.f90 @@ -11,5 +11,5 @@ rewind(7) read(7, *) t read(7, *) temp_name - if (temp_name.ne.'') call abort + if (temp_name.ne.'') STOP 1 end diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/retarray.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/retarray.f90 index a0bdc97c47d..f0d02c22300 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/retarray.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/retarray.f90 @@ -8,19 +8,19 @@ program testfnarray ! These first two shouldn't require a temporary. a = 0 a = test(6, 5) - if (a(1,1) .ne. 42) call abort - if (a(6,5) .ne. 43) call abort + if (a(1,1) .ne. 42) STOP 1 + if (a(6,5) .ne. 43) STOP 2 a = 0 a(1:6:2, 2:5) = test2() - if (a(1,2) .ne. 42) call abort - if (a(5,5) .ne. 43) call abort + if (a(1,2) .ne. 42) STOP 3 + if (a(5,5) .ne. 43) STOP 4 a = 1 ! This requires a temporary a = test(6, 5) - a - if (a(1,1) .ne. 41) call abort - if (a(6,5) .ne. 42) call abort + if (a(1,1) .ne. 41) STOP 5 + if (a(6,5) .ne. 42) STOP 6 contains diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/retarray_2.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/retarray_2.f90 index ab14dd03caf..c6f6d800c1b 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/retarray_2.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/retarray_2.f90 @@ -15,6 +15,6 @@ program retarray use retarray_2 integer, dimension(4) :: b, a=(/1,2,3,4/) b = z(a) - if (any (b .ne. (/1, 2, 3, 4/))) call abort + if (any (b .ne. (/1, 2, 3, 4/))) STOP 1 end diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/save_1.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/save_1.f90 index c838baa9874..499bda55a91 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/save_1.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/save_1.f90 @@ -8,13 +8,13 @@ j = 131 s = 'This is a test string' else - if (i .ne. 26 .or. j .ne. 131) call abort - if (s .ne. 'This is a test string') call abort + if (i .ne. 26 .or. j .ne. 131) STOP 1 + if (s .ne. 'This is a test string') STOP 2 end if end subroutine foo subroutine bar (s) character*42 s - if (s .ne. '0123456789012345678901234567890123456') call abort + if (s .ne. '0123456789012345678901234567890123456') STOP 3 call foo (.false.) end subroutine bar subroutine baz diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/save_2.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/save_2.f90 index c3775bbecc3..d99a3eb0c37 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/save_2.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/save_2.f90 @@ -14,7 +14,7 @@ i = 1 h = 12345 end if - if (h .ne. 12345) call abort + if (h .ne. 12345) STOP 1 end subroutine foo subroutine bar diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/scalarize.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/scalarize.f90 index 63004c82797..a23ae38ea63 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/scalarize.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/scalarize.f90 @@ -16,8 +16,8 @@ program testarray a(:, 2:4) = a(:, 1:3) do n = 1, 5 - if (a(n, 3) .ne. (n + 1)) call abort - if (b(4, n) .ne. (6 - n)) call abort + if (a(n, 3) .ne. (n + 1)) STOP 1 + if (b(4, n) .ne. (6 - n)) STOP 2 end do end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/scalarize2.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/scalarize2.f90 index 608c051d31c..819a3428e3d 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/scalarize2.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/scalarize2.f90 @@ -17,8 +17,8 @@ program testarray a(:, 2:4) = a(:, 1:3) do n = 1, 5 - if (a(n, 3) .ne. (n + 1)) call abort - if (b(4, n) .ne. (6 - n)) call abort + if (a(n, 3) .ne. (n + 1)) STOP 1 + if (b(4, n) .ne. (6 - n)) STOP 2 end do end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/scalarize3.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/scalarize3.f90 index 76d41484c70..a4bc28ebc55 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/scalarize3.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/scalarize3.f90 @@ -4,5 +4,5 @@ program foo a = reshape ((/1, 2, 3, 4, 5, 6/), (/3, 2/)) a = a(3:1:-1, 2:1:-1); - if (any (a .ne. reshape ((/6, 5, 4, 3, 2, 1/), (/3, 2/)))) call abort + if (any (a .ne. reshape ((/6, 5, 4, 3, 2, 1/), (/3, 2/)))) STOP 1 end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/select_1.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/select_1.f90 index 2fe5b6847d8..8243a4d4aee 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/select_1.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/select_1.f90 @@ -13,5 +13,5 @@ case default end select end function -if (j(2).NE.2 .OR. j(11).NE.0) call abort() +if (j(2).NE.2 .OR. j(11).NE.0) STOP 1 end diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/seq_io.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/seq_io.f90 index e1688882989..dadab921437 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/seq_io.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/seq_io.f90 @@ -43,7 +43,7 @@ if (debug) then print '(A,Z8)','m(1) incorrect. m(1) = ',m(1) else - call abort + STOP 1 endif endif @@ -51,7 +51,7 @@ if (debug) then print '(A,Z8)','m(2) incorrect. m(2) = ',m(2) else - call abort + STOP 2 endif endif @@ -59,7 +59,7 @@ if (debug) then print '(A,Z8)','n incorrect. n = ',n else - call abort + STOP 3 endif endif @@ -68,7 +68,7 @@ if (debug) then print*,'element ',i,' was ',r(i),' should be ',i else - call abort + STOP 4 endif endif end do diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/slash_edit.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/slash_edit.f90 index 29f44a7dd4e..406db9bf319 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/slash_edit.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/slash_edit.f90 @@ -9,6 +9,6 @@ 200 FORMAT(I4,///I4) READ(7,200)I,J CLOSE(7, STATUS='DELETE') - IF (I.NE.1) CALL ABORT - IF (J.NE.4) CALL ABORT + IF (I.NE.1) STOP 1 + IF (J.NE.4) STOP 2 END diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/spec_abs.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/spec_abs.f90 index be8e3f7487b..029c0958392 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/spec_abs.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/spec_abs.f90 @@ -2,7 +2,7 @@ INTRINSIC IABS INTEGER FF324 IVCOMP = FF324(IABS,-7) - IF (IVCOMP.NE.8) CALL ABORT + IF (IVCOMP.NE.8) STOP 1 END INTEGER FUNCTION FF324(NINT, IDON03) FF324 = NINT(IDON03) + 1 diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/specifics.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/specifics.f90 index 96977fd11ae..e6aa5e78df3 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/specifics.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/specifics.f90 @@ -5,7 +5,7 @@ subroutine test_c(fn, val, res) complex fn complex val, res - if (diff(fn(val),res)) call abort + if (diff(fn(val),res)) STOP 1 contains function diff(a,b) complex a,b @@ -18,7 +18,7 @@ subroutine test_z(fn, val, res) double complex fn double complex val, res - if (diff(fn(val),res)) call abort + if (diff(fn(val),res)) STOP 2 contains function diff(a,b) double complex a,b @@ -31,7 +31,7 @@ subroutine test_cabs(fn, val, res) real fn, res complex val - if (diff(fn(val),res)) call abort + if (diff(fn(val),res)) STOP 3 contains function diff(a,b) real a,b @@ -44,7 +44,7 @@ subroutine test_cdabs(fn, val, res) double precision fn, res double complex val - if (diff(fn(val),res)) call abort + if (diff(fn(val),res)) STOP 4 contains function diff(a,b) double precision a,b @@ -57,7 +57,7 @@ subroutine test_r(fn, val, res) real fn real val, res - if (diff(fn(val), res)) call abort + if (diff(fn(val), res)) STOP 5 contains function diff(a, b) real a, b @@ -70,7 +70,7 @@ subroutine test_d(fn, val, res) double precision fn double precision val, res - if (diff(fn(val), res)) call abort + if (diff(fn(val), res)) STOP 6 contains function diff(a, b) double precision a, b @@ -83,7 +83,7 @@ subroutine test_r2(fn, val1, val2, res) real fn real val1, val2, res - if (diff(fn(val1, val2), res)) call abort + if (diff(fn(val1, val2), res)) STOP 7 contains function diff(a, b) real a, b @@ -96,7 +96,7 @@ subroutine test_d2(fn, val1, val2, res) double precision fn double precision val1, val2, res - if (diff(fn(val1, val2), res)) call abort + if (diff(fn(val1, val2), res)) STOP 8 contains function diff(a, b) double precision a, b @@ -107,41 +107,41 @@ end subroutine subroutine test_dprod(fn) double precision fn - if (abs (fn (2.0, 3.0) - 6d0) .gt. 0.00001) call abort + if (abs (fn (2.0, 3.0) - 6d0) .gt. 0.00001) STOP 9 end subroutine subroutine test_nint(fn,val,res) integer fn, res real val - if (res .ne. fn(val)) call abort + if (res .ne. fn(val)) STOP 10 end subroutine subroutine test_idnint(fn,val,res) integer fn, res double precision val - if (res .ne. fn(val)) call abort + if (res .ne. fn(val)) STOP 11 end subroutine subroutine test_idim(fn,val1,val2,res) integer fn, res, val1, val2 - if (res .ne. fn(val1,val2)) call abort + if (res .ne. fn(val1,val2)) STOP 12 end subroutine subroutine test_iabs(fn,val,res) integer fn, res, val - if (res .ne. fn(val)) call abort + if (res .ne. fn(val)) STOP 13 end subroutine subroutine test_len(fn,val,res) integer fn, res character(len=*) val - if (res .ne. fn(val)) call abort + if (res .ne. fn(val)) STOP 14 end subroutine subroutine test_index(fn,val1,val2,res) integer fn, res character(len=*) val1, val2 - if (fn(val1,val2) .ne. res) call abort + if (fn(val1,val2) .ne. res) STOP 15 end subroutine program specifics diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/st_function.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/st_function.f90 index e8788025ad8..998adfd6e94 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/st_function.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/st_function.f90 @@ -14,16 +14,16 @@ contains st1 (i, j) = i + j st2 (i, j) = c(i, j) - if (st1 (1, 2) .ne. 3) call abort + if (st1 (1, 2) .ne. 3) STOP 1 c = 3 - if (st2 (1, 2) .ne. 3 .or. st2 (2, 3) .ne. 3) call abort + if (st2 (1, 2) .ne. 3 .or. st2 (2, 3) .ne. 3) STOP 2 end subroutine subroutine with_function_call integer fun, st3 st3 (i, j) = fun (i) + fun (j) - if (st3 (fun (2), 4) .ne. 16) call abort + if (st3 (fun (2), 4) .ne. 16) STOP 3 end subroutine subroutine with_character_dummy @@ -32,8 +32,8 @@ contains st4 (i, j) = "0123456789"(i:j) st5 (s1, s2) = s1 // s2 - if (st4 (1, 4) .ne. "0123" ) call abort - if (st5 ("01", "02") .ne. "01 02 ") call abort ! { dg-warning "Character length of actual argument shorter" } + if (st4 (1, 4) .ne. "0123" ) STOP 4 + if (st5 ("01", "02") .ne. "01 02 ") STOP 5! { dg-warning "Character length of actual argument shorter" } end subroutine subroutine with_derived_type_dummy @@ -48,8 +48,8 @@ contains me%age = 5 me%name = "Tom" tom = st6 (me) - if (tom%age .ne. 5) call abort - if (tom%name .gt. "Tom") call abort + if (tom%age .ne. 5) STOP 6 + if (tom%name .gt. "Tom") STOP 7 end subroutine subroutine with_pointer_dummy @@ -60,7 +60,7 @@ contains p1 => i i = '1234' - if (a (p1) .ne. '123410') call abort + if (a (p1) .ne. '123410') STOP 8 end subroutine subroutine multiple_eval @@ -68,7 +68,7 @@ contains st7(i) = i + fun(i) - if (st7(fun2(10)) .ne. 3) call abort + if (st7(fun2(10)) .ne. 3) STOP 9 end subroutine end diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/st_function_1.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/st_function_1.f90 index b851a942e3d..4bda696e9b2 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/st_function_1.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/st_function_1.f90 @@ -18,6 +18,6 @@ contains subroutine check(a, b) character (len=*) :: a, b - if ((a .ne. b) .or. (len(a) .ne. len(b))) call abort () + if ((a .ne. b) .or. (len(a) .ne. len(b))) STOP 1 end subroutine end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/st_function_2.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/st_function_2.f90 index 2dec735625f..417756ce9d6 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/st_function_2.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/st_function_2.f90 @@ -4,12 +4,12 @@ program st_function_2 integer fn, a, b fn(a, b) = a + b - if (foo(1) .ne. 43) call abort + if (foo(1) .ne. 43) STOP 1 ! Check that values aren't modified when avaluating the arguments. a = 1 b = 5 - if (fn (b + 2, a + 3) .ne. 11) call abort + if (fn (b + 2, a + 3) .ne. 11) STOP 2 contains function foo (x) integer z, y, foo, x diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/stack_varsize.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/stack_varsize.f90 index 6342e1a406e..4e6c0544c02 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/stack_varsize.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/stack_varsize.f90 @@ -15,8 +15,8 @@ contains m = 10 n = 20 k = 30 - if ((a .ne. 10.0).or.(b(1) .ne. 20.0).or.(c(1) .ne. 30.0)) call abort - if ((m .ne. 10).or.(n(256,4) .ne. 20).or.(k(1,1024) .ne. 30)) call abort + if ((a .ne. 10.0).or.(b(1) .ne. 20.0).or.(c(1) .ne. 30.0)) STOP 1 + if ((m .ne. 10).or.(n(256,4) .ne. 20).or.(k(1,1024) .ne. 30)) STOP 2 end subroutine ! Local variables defined in recursive subroutine are always put on stack. @@ -24,7 +24,7 @@ contains real a (32769) a (1) = 42 if (n .ge. 1) call sub2 (n-1) - if (a(1) .ne. 42) call abort + if (a(1) .ne. 42) STOP 3 a (1) = 0 end subroutine end diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/straret.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/straret.f90 index 579e35a70a4..3f9a71ba74d 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/straret.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/straret.f90 @@ -14,5 +14,5 @@ program straret v = f() // g() - if (v .ne. "Hello World ") call abort () + if (v .ne. "Hello World ") STOP 1 end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/strarray_1.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/strarray_1.f90 index 95e9b038559..de440f729b7 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/strarray_1.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/strarray_1.f90 @@ -5,7 +5,7 @@ character(1),parameter :: hex_chars(0:15)=& (/'0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F'/) c = hex_chars(i) -if (c.ne.'3') call abort() +if (c.ne.'3') STOP 1 end program strarray_1 diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/strarray_2.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/strarray_2.f90 index dbb3b89e43f..23bf7c48bdd 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/strarray_2.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/strarray_2.f90 @@ -10,5 +10,5 @@ end program strarray_2 character c call foo(3,c) - if (c.ne.'3') call abort() + if (c.ne.'3') STOP 1 end diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/strarray_3.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/strarray_3.f90 index 9d369c7f196..637c1df94f0 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/strarray_3.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/strarray_3.f90 @@ -14,7 +14,7 @@ subroutine foo1(a) implicit none character(len=5), dimension(2) :: a - if ((a(1) .ne. "Hello") .or. (a(2) .ne. "World")) call abort + if ((a(1) .ne. "Hello") .or. (a(2) .ne. "World")) STOP 1 end subroutine subroutine foo2(a, m) @@ -22,7 +22,7 @@ subroutine foo2(a, m) integer m character(len=5), dimension(m) :: a - if ((a(1) .ne. "Hello") .or. (a(2) .ne. "World")) call abort + if ((a(1) .ne. "Hello") .or. (a(2) .ne. "World")) STOP 2 end subroutine subroutine foo3(a, n) @@ -30,7 +30,7 @@ subroutine foo3(a, n) integer n character(len=n), dimension(:) :: a - if ((a(1) .ne. "Hello") .or. (a(2) .ne. "World")) call abort + if ((a(1) .ne. "Hello") .or. (a(2) .ne. "World")) STOP 3 end subroutine subroutine foo4(a, n, m) @@ -38,13 +38,13 @@ subroutine foo4(a, n, m) integer n, m character(len=n), dimension(m) :: a - if ((a(1) .ne. "Hello") .or. (a(2) .ne. "World")) call abort + if ((a(1) .ne. "Hello") .or. (a(2) .ne. "World")) STOP 4 end subroutine subroutine foo5(a) implicit none character(len=2), dimension(5) :: a - if ((a(1) .ne. "Wo") .or. (a(3) .ne. "dH") .or. (a(5) .ne. "lo")) call abort + if ((a(1) .ne. "Wo") .or. (a(3) .ne. "dH") .or. (a(5) .ne. "lo")) STOP 5 end subroutine end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/strarray_4.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/strarray_4.f90 index c33f4b53d69..29eac73e0ea 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/strarray_4.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/strarray_4.f90 @@ -14,7 +14,7 @@ subroutine foo1(a) character(len=5), dimension(2) :: b b = a; - if ((b(1) .ne. "Hello") .or. (b(2) .ne. "World")) call abort + if ((b(1) .ne. "Hello") .or. (b(2) .ne. "World")) STOP 1 end subroutine subroutine foo2(a, m) @@ -24,7 +24,7 @@ subroutine foo2(a, m) character(len=5), dimension(m) :: b b = a - if ((b(1) .ne. "Hello") .or. (b(2) .ne. "World")) call abort + if ((b(1) .ne. "Hello") .or. (b(2) .ne. "World")) STOP 2 end subroutine subroutine foo3(a, n, m) @@ -34,6 +34,6 @@ subroutine foo3(a, n, m) character(len=n), dimension(m) :: b b = a - if ((b(1) .ne. "Hello") .or. (b(2) .ne. "World")) call abort + if ((b(1) .ne. "Hello") .or. (b(2) .ne. "World")) STOP 3 end subroutine end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/strcmp.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/strcmp.f90 index 26980901c7e..af4be53fbb6 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/strcmp.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/strcmp.f90 @@ -4,13 +4,13 @@ program test foo="hello" - if (llt(foo, "hello")) call abort - if (.not. lle(foo, "hello")) call abort - if (lgt("hello", foo)) call abort - if (.not. lge("hello", foo)) call abort + if (llt(foo, "hello")) STOP 1 + if (.not. lle(foo, "hello")) STOP 2 + if (lgt("hello", foo)) STOP 3 + if (.not. lge("hello", foo)) STOP 4 - if (.not. llt(foo, "world")) call abort - if (.not. lle(foo, "world")) call abort - if (lgt(foo, "world")) call abort - if (lge(foo, "world")) call abort + if (.not. llt(foo, "world")) STOP 5 + if (.not. lle(foo, "world")) STOP 6 + if (lgt(foo, "world")) STOP 7 + if (lge(foo, "world")) STOP 8 end diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/strcommon_1.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/strcommon_1.f90 index aa51ccf4bae..a3459f464c7 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/strcommon_1.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/strcommon_1.f90 @@ -5,7 +5,7 @@ subroutine test1 common /block/ c character(len=12) :: c - if (c .ne. "Hello World") call abort + if (c .ne. "Hello World") STOP 1 end subroutine subroutine test2 @@ -13,7 +13,7 @@ subroutine test2 common /block/ a character(len=6), dimension(2) :: a - if ((a(1) .ne. "Hello") .or. (a(2) .ne. "World")) call abort + if ((a(1) .ne. "Hello") .or. (a(2) .ne. "World")) STOP 2 end subroutine program strcommon_1 diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/string.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/string.f90 index f220f4a477b..c6aa9b2af4d 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/string.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/string.f90 @@ -8,8 +8,8 @@ program string b = 'World' c = a//b - if (c .ne. 'HelloWorld') call abort - if (c .eq. 'WorldHello') call abort - if (a//'World' .ne. 'HelloWorld') call abort - if (a .ge. b) call abort + if (c .ne. 'HelloWorld') STOP 1 + if (c .eq. 'WorldHello') STOP 2 + if (a//'World' .ne. 'HelloWorld') STOP 3 + if (a .ge. b) STOP 4 end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/strlen.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/strlen.f90 index 17f9aa277b6..85f233ff751 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/strlen.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/strlen.f90 @@ -4,8 +4,8 @@ subroutine test (c) character(len(c)) d d = c - if (len(d) .ne. 20) call abort - if (d .ne. "Longer Test String") call abort + if (len(d) .ne. 20) STOP 1 + if (d .ne. "Longer Test String") STOP 2 c = "Hello World" end subroutine @@ -14,8 +14,8 @@ subroutine test2 (c) character(len(c)) d d = c - if (len(d) .ne. 6) call abort - if (d .ne. "Foobar") call abort + if (len(d) .ne. 6) STOP 3 + if (d .ne. "Foobar") STOP 4 end subroutine program strlen @@ -27,8 +27,8 @@ program strlen c = "Longer Test String" call test (c) - if (len(c) .ne. 20) call abort - if (len_trim(c) .ne. 11) call abort + if (len(c) .ne. 20) STOP 5 + if (len_trim(c) .ne. 11) STOP 6 call test2 ("Foobar"); end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/strret.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/strret.f90 index 7346fff5df7..cf560091c3d 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/strret.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/strret.f90 @@ -18,8 +18,8 @@ program strret character(len=5) :: test2 s = test () - if (s .ne. "World") call abort + if (s .ne. "World") STOP 1 s = "Hello " // test () - if (s .ne. test2 () //" World") call abort + if (s .ne. test2 () //" World") STOP 2 end diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/t_edit.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/t_edit.f90 index 9746f31947a..dcfb0f9e50a 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/t_edit.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/t_edit.f90 @@ -2,9 +2,9 @@ implicit none character*80 line WRITE(line,'(T5,A,T10,A,T15,A)')'AA','BB','CC' - if (line.ne.' AA BB CC ') call abort + if (line.ne.' AA BB CC ') STOP 1 WRITE(line,'(5HAAAAA,TL4,4HABCD)') - if (line.ne.'AABCD') call abort + if (line.ne.'AABCD') STOP 2 END diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/test_slice.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/test_slice.f90 index f2291cd832a..942d3a6497a 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/test_slice.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/test_slice.f90 @@ -7,11 +7,11 @@ program test_slice real (kind = 8) :: min, max x = 1.0 - if (minval(x(1, 1:2, 1:1)) .ne. 1.0) call abort () - if (maxval(x(1, 1:2, 1:1)) .ne. 1.0) call abort () - if (any (shape(x(1, 1:2, 1:1)) .ne. (/2, 1/))) call abort () + if (minval(x(1, 1:2, 1:1)) .ne. 1.0) STOP 1 + if (maxval(x(1, 1:2, 1:1)) .ne. 1.0) STOP 2 + if (any (shape(x(1, 1:2, 1:1)) .ne. (/2, 1/))) STOP 3 - if (any (shape(x(1, 1:2, 1)) .ne. (/2/))) call abort () - if (any (shape(x(1:1, 1:2, 1:1)) .ne. (/1, 2, 1/))) call abort () + if (any (shape(x(1, 1:2, 1)) .ne. (/2/))) STOP 4 + if (any (shape(x(1:1, 1:2, 1:1)) .ne. (/1, 2, 1/))) STOP 5 end program test_slice diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/transfer1.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/transfer1.f90 index 855fe9df17a..9779f6b8c67 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/transfer1.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/transfer1.f90 @@ -6,5 +6,5 @@ program chop ix = transfer(x,ix) iy = transfer(y,iy) print '(2z20.8)', ix, iy - if (ix /= iy) call abort + if (ix /= iy) STOP 1 end program chop diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/transfer2.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/transfer2.f90 index b57841c30f0..464bdeadefa 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/transfer2.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/transfer2.f90 @@ -15,5 +15,5 @@ program test_convert value = transfer(byte_string(1:4),value) value1 = transfer(byte_array(1:4),value1) - if (value .ne. value1) call abort() + if (value .ne. value1) STOP 1 end program test_convert diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/unopened_unit_1.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/unopened_unit_1.f90 index 66895b02af1..0ca4f08d7e1 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/unopened_unit_1.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/unopened_unit_1.f90 @@ -7,7 +7,7 @@ program unopened_unit_1 Rewind(99) Do I = 1,10 Read(99,*)J - If (J.ne.I) Call abort + If (J.ne.I) STOP 1 End Do Close(99, Status='Delete') End program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/userop.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/userop.f90 index 4fceb476685..7fd4ffa45c5 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/userop.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/userop.f90 @@ -47,21 +47,21 @@ program me b = .true. c = .true. - if (b * c) call abort + if (b * c) STOP 1 c = .false. - if (.not. (b * c)) call abort - if (c * b) call abort + if (.not. (b * c)) STOP 2 + if (c * b) STOP 3 b = .false. - if (b * c) call abort + if (b * c) STOP 4 i = 0 b = i - if (b) call abort + if (b) STOP 5 i = 2 b = i - if (.not. b) call abort + if (.not. b) STOP 6 j = 3 - if ((i .foo. j) .ne. 5) call abort + if ((i .foo. j) .ne. 5) STOP 7 end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/where17.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/where17.f90 index b4323ca81fb..a9582c18402 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/where17.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/where17.f90 @@ -11,5 +11,5 @@ program where_17 elsewhere (a .le. 3) a = 4 endwhere - if (any (a .ne. (/2, 3, 4/))) call abort + if (any (a .ne. (/2, 3, 4/))) STOP 1 end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/where18.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/where18.f90 index 403646460b8..88bdb744e7d 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/where18.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/where18.f90 @@ -13,7 +13,7 @@ program where_18 c = 3 endwhere if (any (a .ne. (/1, 2, 2, 2/))) & - call abort + STOP 1 a = (/1, 1, 1, 1/) where (c .eq. 1) @@ -22,5 +22,5 @@ program where_18 b = 3 endwhere if (any (a .ne. (/2, 2, 2, 1/))) & - call abort + STOP 2 end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/where19.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/where19.f90 index 3c41b89978c..76672fa1da8 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/where19.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/where19.f90 @@ -11,13 +11,13 @@ program where_19 c = b endwhere if (any (a .ne. (/1, 2, 2, 3/))) & - call abort () + STOP 1 a = (/1, 2, 3, 4/) where (c .gt. 1) b = c endwhere if (any (a .ne. (/2, 3, 4, 4/))) & - call abort () + STOP 2 end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/where20.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/where20.f90 index b0456500d13..9a1e1630e01 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/where20.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/where20.f90 @@ -12,7 +12,7 @@ program where_20 ! This classic case worked before the patch. a = (/1, 2, 3, 4/) where (b .gt. 1) a(2:4) = a(1:3) - if (any(a .ne. (/1,2,2,3/))) call abort () + if (any(a .ne. (/1,2,2,3/))) STOP 1 ! This is the original manifestation of the problem ! and is repeated in where_19.f90. @@ -20,26 +20,26 @@ program where_20 where (b .gt. 1) c = b endwhere - if (any(a .ne. (/1,2,2,3/))) call abort () + if (any(a .ne. (/1,2,2,3/))) STOP 2 ! Mask to.destination dependency. a = (/1, 2, 3, 4/) where (b .gt. 1) c = d endwhere - if (any(a .ne. (/1,2,2,3/))) call abort () + if (any(a .ne. (/1,2,2,3/))) STOP 3 ! Source to.destination dependency. a = (/1, 2, 3, 4/) where (d .gt. 1) c = b endwhere - if (any(a .ne. (/1,2,2,3/))) call abort () + if (any(a .ne. (/1,2,2,3/))) STOP 4 ! Check the simple where. a = (/1, 2, 3, 4/) where (b .gt. 1) c = b - if (any(a .ne. (/1,2,2,3/))) call abort () + if (any(a .ne. (/1,2,2,3/))) STOP 5 ! This was OK before the patch. a = (/1, 2, 3, 4/) @@ -48,7 +48,7 @@ program where_20 c = b end where endwhere - if (any(a .ne. (/1,2,2,3/))) call abort () + if (any(a .ne. (/1,2,2,3/))) STOP 6 end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/where21.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/where21.f90 index 6826b87b688..0fbdc9ad099 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/where21.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/where21.f90 @@ -5,5 +5,5 @@ program a integer, parameter :: i(4) = (/ 1, 1, 1, 1 /) integer :: z(4) = (/ 1, 1, -1, -1 /) where(z < 0) z(:) = 1 - if (any(z /= i)) call abort + if (any(z /= i)) STOP 1 end program a diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/where_1.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/where_1.f90 index ba1f8a62579..c4ea9712430 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/where_1.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/where_1.f90 @@ -19,7 +19,7 @@ program where_1 end forall if (any (A .ne. reshape ((/1, 1, 1, 1, 1, 0, 1, 2, 1, 2, 0, 1, 2, 3, 0, & - 0, 1, 4, 2, 0, 0, 5, 6, 6, 5/), (/5, 5/)))) call abort + 0, 1, 4, 2, 0, 0, 5, 6, 6, 5/), (/5, 5/)))) STOP 1 ! Where inside DO A(1,:) = (/1,0,0,0,0/) @@ -37,5 +37,5 @@ program where_1 enddo if (any (A .ne. reshape ((/1, 1, 1, 1, 1, 0, 1, 2, 1, 2, 0, 1, 2, 6, 0, & - 0, 1, 0, 2, 0, 0, 0, 5, 5, 5/), (/5, 5/)))) call abort + 0, 1, 0, 2, 0, 0, 0, 5, 5, 5/), (/5, 5/)))) STOP 2 end diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/where_10.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/where_10.f90 index c5a85cec8b7..09dcd3e91b9 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/where_10.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/where_10.f90 @@ -18,6 +18,6 @@ program where_10 b = 5 endwhere if (any (b .ne. (/3, 1, 4, 1, 5/))) & - call abort + STOP 1 end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/where_11.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/where_11.f90 index f2eb69f2ebe..7de0b856c97 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/where_11.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/where_11.f90 @@ -18,6 +18,6 @@ program where_11 b = 5 endwhere if (any (b .ne. (/3, 1, 4, 1, 5/))) & - call abort + STOP 1 end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/where_14.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/where_14.f90 index 640bdf574a6..f02b73ef698 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/where_14.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/where_14.f90 @@ -10,6 +10,6 @@ program where_14 elsewhere endwhere if (any (b .ne. (/3, 0, 0, 0, 0/))) & - call abort + STOP 1 end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/where_15.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/where_15.f90 index ffbebb728aa..633c4a2260c 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/where_15.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/where_15.f90 @@ -10,6 +10,6 @@ program where_15 b = 2 endwhere if (any (b .ne. (/0, 2, 2, 2, 2/))) & - call abort + STOP 1 end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/where_16.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/where_16.f90 index 19f012a11ad..97279106c49 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/where_16.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/where_16.f90 @@ -34,6 +34,6 @@ program where_16 endwhere endwhere if (any (c .ne. (/1, 2, 3, 4, 5, 6, 7, 8, 9/))) & - call abort + STOP 1 end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/where_2.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/where_2.f90 index 25a8dc9e7a8..256f95533e4 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/where_2.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/where_2.f90 @@ -18,5 +18,5 @@ program where_2 END WHERE if (any (temp .ne. (/100, 100, 100, 210, 210, 210, 310, 310, 337, 337/))) & - call abort + STOP 1 end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/where_3.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/where_3.f90 index a9f7ef7bc08..fbe29611264 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/where_3.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/where_3.f90 @@ -16,6 +16,6 @@ subroutine sub(B) B(:,1) = B(:,1) + 10 endwhere if (any (B .ne. reshape ((/0, 0, 0, 0, 0, 15, 15, 15, 15, 15, & - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0/), (/10, 2/)))) call abort + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0/), (/10, 2/)))) STOP 1 end subroutine end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/where_4.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/where_4.f90 index 104096b356a..737b0073b30 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/where_4.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/where_4.f90 @@ -9,5 +9,5 @@ program where_4 where (b .ne. 0) a(:) = a(5:1:-1) endwhere - if (any (a .ne. (/5, 2, 3, 4, 1/))) call abort + if (any (a .ne. (/5, 2, 3, 4, 1/))) STOP 1 end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/where_5.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/where_5.f90 index 58d24ecbb30..c21706c857d 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/where_5.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/where_5.f90 @@ -9,5 +9,5 @@ program where_5 where (b .ne. 0d0) a(:) = a(:) + 10 endwhere - if (any (a .ne. (/11, 2, 13, 4, 15/))) call abort + if (any (a .ne. (/11, 2, 13, 4, 15/))) STOP 1 end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/where_6.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/where_6.f90 index 274598b8d77..911196e78fb 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/where_6.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/where_6.f90 @@ -19,5 +19,5 @@ program where_6 endwhere end forall if (any (A .ne. reshape ((/1,2,6,2,1,0,1,2,1,2,0,1,2,5,0,0,1,6,2,0,0,0,2,& - 6,0/), (/5, 5/)))) call abort + 6,0/), (/5, 5/)))) STOP 1 end diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/where_7.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/where_7.f90 index 49dc5952a9f..99e60bf2463 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/where_7.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/where_7.f90 @@ -28,10 +28,10 @@ program evil_where end where end forall - if (any(v(1)%p(:) .ne. (/11, 10/))) call abort - if (any(v(2)%p(:) .ne. (/1, 2, 3, 4, 17, 18, 19, 20/))) call abort - if (any(v(4)%p(:) .ne. (/1, 2, 3, 4, 5, 6, 19, 20/))) call abort - if (any(v(5)%p(:) .ne. (/9, 10/))) call abort + if (any(v(1)%p(:) .ne. (/11, 10/))) STOP 1 + if (any(v(2)%p(:) .ne. (/1, 2, 3, 4, 17, 18, 19, 20/))) STOP 2 + if (any(v(4)%p(:) .ne. (/1, 2, 3, 4, 5, 6, 19, 20/))) STOP 3 + if (any(v(5)%p(:) .ne. (/9, 10/))) STOP 4 v(1)%p(:) = (/9, 10/) v(2)%p(:) = (/1, 2, 3, 4, 5, 6, 7, 8/) @@ -44,10 +44,10 @@ program evil_where end where end forall - if (any(v(1)%p(:) .ne. (/9, 10/))) call abort - if (any(v(2)%p(:) .ne. (/13, 14, 15, 16, 5, 6, 7, 8/))) call abort - if (any(v(4)%p(:) .ne. (/13, 14, 15, 16, 17, 18, 19, 20/))) call abort - if (any(v(5)%p(:) .ne. (/11, 12/))) call abort + if (any(v(1)%p(:) .ne. (/9, 10/))) STOP 5 + if (any(v(2)%p(:) .ne. (/13, 14, 15, 16, 5, 6, 7, 8/))) STOP 6 + if (any(v(4)%p(:) .ne. (/13, 14, 15, 16, 17, 18, 19, 20/))) STOP 7 + if (any(v(5)%p(:) .ne. (/11, 12/))) STOP 8 ! I should really free the memory I've allocated. end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/where_8.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/where_8.f90 index 58a26bd3483..c811c93124b 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/where_8.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/where_8.f90 @@ -21,8 +21,8 @@ program where_8 end where end forall - if (any(v(1)%p(:) .ne. (/21, 10, 0, 0, 0, 0, 0, 0/))) call abort - if (any(v(2)%p(:) .ne. (/1, 2, 3, 4, 21, 21, 21, 21/))) call abort - if (any(v(4)%p(:) .ne. (/21, 21, 21, 21, 21, 21, 19, 20/))) call abort - if (any(v(5)%p(:) .ne. (/21, 21, 0, 0, 0, 0, 0, 0/))) call abort + if (any(v(1)%p(:) .ne. (/21, 10, 0, 0, 0, 0, 0, 0/))) STOP 1 + if (any(v(2)%p(:) .ne. (/1, 2, 3, 4, 21, 21, 21, 21/))) STOP 2 + if (any(v(4)%p(:) .ne. (/21, 21, 21, 21, 21, 21, 19, 20/))) STOP 3 + if (any(v(5)%p(:) .ne. (/21, 21, 0, 0, 0, 0, 0, 0/))) STOP 4 end program diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/write_a_1.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/write_a_1.f90 index 18cb103cbe7..ff1e58923c8 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/write_a_1.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/write_a_1.f90 @@ -4,11 +4,11 @@ character*25 s ! string = format write(s,'(A11)') "hello world" - if (s.ne."hello world") call abort + if (s.ne."hello world") STOP 1 ! string < format write(s,'(A2)') "hello world" - if (s.ne."he") call abort + if (s.ne."he") STOP 2 ! string > format write(s,'(A18)') "hello world" - if (s.ne." hello world") call abort + if (s.ne." hello world") STOP 3 end diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/write_logical.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/write_logical.f90 index 4e0060702f3..4a3a70e1d28 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/write_logical.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/write_logical.f90 @@ -7,17 +7,17 @@ false = .FALSE. b = '' write (b, '(L1)') true - if (b(1:1) .ne. 'T') call abort + if (b(1:1) .ne. 'T') STOP 1 b = '' write (b, '(L1)') false - if (b(1:1) .ne. 'F') call abort + if (b(1:1) .ne. 'F') STOP 2 b = '' write(b, '(L4)') true - if (b(1:4) .ne. ' T') call abort + if (b(1:4) .ne. ' T') STOP 3 b = '' write(b, '(L4)') false - if (b(1:4) .ne. ' F') call abort + if (b(1:4) .ne. ' F') STOP 4 end |