diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/iso_fortran_env_3.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/iso_fortran_env_3.f90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/testsuite/gfortran.dg/iso_fortran_env_3.f90 b/gcc/testsuite/gfortran.dg/iso_fortran_env_3.f90 index a90315958a9..65c1db2e937 100644 --- a/gcc/testsuite/gfortran.dg/iso_fortran_env_3.f90 +++ b/gcc/testsuite/gfortran.dg/iso_fortran_env_3.f90 @@ -11,14 +11,14 @@ subroutine foo2 (x,y) use iso_fortran_env, foo => numeric_storage_size integer, intent(in) :: x, y - if (foo /= x .or. character_storage_size /= y) call abort + if (foo /= x .or. character_storage_size /= y) STOP 1 end subroutine foo3 (x,y) use iso_fortran_env, only : numeric_storage_size, character_storage_size integer, intent(in) :: x, y - if (numeric_storage_size /= x .or. character_storage_size /= y) call abort + if (numeric_storage_size /= x .or. character_storage_size /= y) STOP 2 end program test |