diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/iso_fortran_env_5.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/iso_fortran_env_5.f90 | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/testsuite/gfortran.dg/iso_fortran_env_5.f90 b/gcc/testsuite/gfortran.dg/iso_fortran_env_5.f90 index d87ce43f31f..efe012143ca 100644 --- a/gcc/testsuite/gfortran.dg/iso_fortran_env_5.f90 +++ b/gcc/testsuite/gfortran.dg/iso_fortran_env_5.f90 @@ -12,13 +12,13 @@ integer(kind=ATOMIC_INT_KIND) :: atomic_int logical(kind=ATOMIC_LOGICAL_KIND) :: atomic_bool i = 0 -if (IOSTAT_INQUIRE_INTERNAL_UNIT <= 0) call abort() -if (IOSTAT_INQUIRE_INTERNAL_UNIT == STAT_STOPPED_IMAGE) call abort() -if (STAT_STOPPED_IMAGE <= 0) call abort() +if (IOSTAT_INQUIRE_INTERNAL_UNIT <= 0) STOP 1 +if (IOSTAT_INQUIRE_INTERNAL_UNIT == STAT_STOPPED_IMAGE) STOP 2 +if (STAT_STOPPED_IMAGE <= 0) STOP 3 if ((STAT_LOCKED_OTHER_IMAGE == STAT_LOCKED) & - .or.(STAT_LOCKED_OTHER_IMAGE == STAT_UNLOCKED)) call abort() -if (STAT_LOCKED == STAT_UNLOCKED) call abort() + .or.(STAT_LOCKED_OTHER_IMAGE == STAT_UNLOCKED)) STOP 4 +if (STAT_LOCKED == STAT_UNLOCKED) STOP 5 end |