diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/pr19928-2.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/pr19928-2.f90 | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/testsuite/gfortran.dg/pr19928-2.f90 b/gcc/testsuite/gfortran.dg/pr19928-2.f90 index 6bfdd0f30b2..240be7272ea 100644 --- a/gcc/testsuite/gfortran.dg/pr19928-2.f90 +++ b/gcc/testsuite/gfortran.dg/pr19928-2.f90 @@ -10,10 +10,10 @@ program main forall (i = 1:2, j = 1:5) a(i)%field(j) = i * 100 + j calls = 0 - if (sum (a%field(foo(calls))) .ne. 304) call abort - if (calls .ne. 1) call abort - if (sum (a(foo(calls))%field) .ne. 1015) call abort - if (calls .ne. 2) call abort + if (sum (a%field(foo(calls))) .ne. 304) STOP 1 + if (calls .ne. 1) STOP 2 + if (sum (a(foo(calls))%field) .ne. 1015) STOP 3 + if (calls .ne. 2) STOP 4 contains function foo (calls) integer :: calls, foo |