diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/type_to_class_4.f03')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/type_to_class_4.f03 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/testsuite/gfortran.dg/type_to_class_4.f03 b/gcc/testsuite/gfortran.dg/type_to_class_4.f03 index 196e4481de4..d6129977ad4 100644 --- a/gcc/testsuite/gfortran.dg/type_to_class_4.f03 +++ b/gcc/testsuite/gfortran.dg/type_to_class_4.f03 @@ -15,7 +15,7 @@ contains class(t_stv), intent(in) :: y(:) integer :: k do k=1,size(y) - if (int(y(k)%f1) .ne. k) call abort + if (int(y(k)%f1) .ne. k) STOP 1 enddo end subroutine end module |