diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/namelist_86.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/namelist_86.f90 | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/testsuite/gfortran.dg/namelist_86.f90 b/gcc/testsuite/gfortran.dg/namelist_86.f90 index 88d90d2cf9f..ceb1ca3b95f 100644 --- a/gcc/testsuite/gfortran.dg/namelist_86.f90 +++ b/gcc/testsuite/gfortran.dg/namelist_86.f90 @@ -1,5 +1,5 @@ ! { dg-do run } -! { dg-options "-std=f2003 -fall-intrinsics" } +! { dg-options "-std=f2003 " } ! PR65596 Namelist reads too far. integer ,parameter :: CL=80 integer ,parameter :: AL=4 @@ -29,13 +29,13 @@ dogs(:) = '________' read (27, nml=theList, iostat=ierr) -if (ierr .ne. 0) call abort +if (ierr .ne. 0) STOP 1 rslt = ['Rover ','Spot ','________','________'] -if (any(dogs.ne.rslt)) call abort +if (any(dogs.ne.rslt)) STOP 2 rslt = ['Fluffy ','Hairball','________','________'] -if (any(cats.ne.rslt)) call abort +if (any(cats.ne.rslt)) STOP 3 close(27) |