diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/type_to_class_5.f03')
-rw-r--r-- | gcc/testsuite/gfortran.dg/type_to_class_5.f03 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/testsuite/gfortran.dg/type_to_class_5.f03 b/gcc/testsuite/gfortran.dg/type_to_class_5.f03 index 29a4b409198..110fe835e50 100644 --- a/gcc/testsuite/gfortran.dg/type_to_class_5.f03 +++ b/gcc/testsuite/gfortran.dg/type_to_class_5.f03 @@ -22,7 +22,7 @@ contains integer :: iarray(4) integer :: i do i=1,size(a) - if (a(i)%n .ne. iarray(i)) call abort + if (a(i)%n .ne. iarray(i)) STOP 1 a(i)%n = a(i)%n+1 enddo end subroutine |