diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/pdt_27.f03')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pdt_27.f03 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/testsuite/gfortran.dg/pdt_27.f03 b/gcc/testsuite/gfortran.dg/pdt_27.f03 index 89eb63d53e3..525b9999f3d 100644 --- a/gcc/testsuite/gfortran.dg/pdt_27.f03 +++ b/gcc/testsuite/gfortran.dg/pdt_27.f03 @@ -15,8 +15,8 @@ program test_pdt use pdt_m implicit none type(vec) :: u,v - if (any (u%foo .ne. [1,2,3])) call abort + if (any (u%foo .ne. [1,2,3])) STOP 1 u%foo = [7,8,9] v = u - if (any (v%foo .ne. [7,8,9])) call abort + if (any (v%foo .ne. [7,8,9])) STOP 2 end program test_pdt |