Merge from trunk revision 257954.gccgo

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/gccgo@257955 138bc75d-0d04-0410-961f-82ee72b054a4

1 files changed, 5 insertions, 5 deletions

diff --git a/gcc/testsuite/gfortran.dg/namelist_81.f90 b/gcc/testsuite/gfortran.dg/namelist_81.f90
index ddb100bf882..2adac1b0b53 100644
--- a/gcc/testsuite/gfortran.dg/namelist_81.f90
+++ b/gcc/testsuite/gfortran.dg/namelist_81.f90
@@ -9,7 +9,7 @@ write(99,'(a)') '&nml i(3 ) = 5 /'
 rewind(99)
 read(99,nml=nml)
 close(99)
-if (i(1)/=-42 .or. i(2)/=-42 .or. i(3)/=5) call abort()
+if (i(1)/=-42 .or. i(2)/=-42 .or. i(3)/=5) STOP 1
 
 ! Shorten the file so the read hits EOF
 
@@ -17,27 +17,27 @@ open(99,status='scratch')
 write(99,'(a)') '&nml i(3 ) = 5 '
 rewind(99)
 read(99,nml=nml, end=30)
-call abort()
+STOP 2
 ! Shorten some more
  30 close(99)
 open(99,status='scratch')
 write(99,'(a)') '&nml i(3 ) ='
 rewind(99)
 read(99,nml=nml, end=40)
-call abort()
+STOP 3
 ! Shorten some more
  40 close(99)
 open(99,status='scratch')
 write(99,'(a)') '&nml i(3 )'
 rewind(99)
 read(99,nml=nml, end=50)
-call abort()
+STOP 4
 ! Shorten some more
  50 close(99)
 open(99,status='scratch')
 write(99,'(a)') '&nml i(3 '
 rewind(99)
 read(99,nml=nml, end=60)
-call abort()
+STOP 5
  60 close(99)
 end