diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/namelist_37.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/namelist_37.f90 | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/testsuite/gfortran.dg/namelist_37.f90 b/gcc/testsuite/gfortran.dg/namelist_37.f90 index 4a46b534f67..a1f73043f78 100644 --- a/gcc/testsuite/gfortran.dg/namelist_37.f90 +++ b/gcc/testsuite/gfortran.dg/namelist_37.f90 @@ -22,11 +22,11 @@ rewind(10) CHAR = 'Initialize string ***'
X = -777.
READ(10, nml=CODE, END=999) -if (x.ne.-3.0) call abort +if (x.ne.-3.0) STOP 1 READ(10, nml=CODE, END=999) -if (x.ne.44.0) call abort +if (x.ne.44.0) STOP 2 READ(10, nml=CODE, END=999) -if (x.ne.66.0) call abort +if (x.ne.66.0) STOP 3 READ(10, nml=CODE, END=999) - 999 if (x.ne.77.0) call abort
+ 999 if (x.ne.77.0) STOP 1 END PROGRAM namelist
|