diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/namelist_40.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/namelist_40.f90 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/testsuite/gfortran.dg/namelist_40.f90 b/gcc/testsuite/gfortran.dg/namelist_40.f90 index 195a78b64d0..23b3e720be9 100644 --- a/gcc/testsuite/gfortran.dg/namelist_40.f90 +++ b/gcc/testsuite/gfortran.dg/namelist_40.f90 @@ -40,7 +40,7 @@ subroutine writenml (astring) write (10, '(A)') "/" rewind (10) read (10, nml = mynml, iostat=ierror, iomsg=errmessage) - if (ierror == 0) call abort + if (ierror == 0) STOP 1 print '(a)', trim(errmessage) close (10) |