diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/list_read_2.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/list_read_2.f90 | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gcc/testsuite/gfortran.dg/list_read_2.f90 b/gcc/testsuite/gfortran.dg/list_read_2.f90 index 3e6c233c09a..f77633ee807 100644 --- a/gcc/testsuite/gfortran.dg/list_read_2.f90 +++ b/gcc/testsuite/gfortran.dg/list_read_2.f90 @@ -13,15 +13,15 @@ program list_read_2 logical debug data debug /.TRUE./ read(a,*)i - if (i.ne.1234567890) call abort + if (i.ne.1234567890) STOP 1 read(a(1:1),*)i - if (i.ne.1) call abort + if (i.ne.1) STOP 2 read(a(2:2),*)i - if (i.ne.2) call abort + if (i.ne.2) STOP 3 read(a(1:5),*)i - if (i.ne.12345) call abort + if (i.ne.12345) STOP 4 read(a(5:10),*)i - if (i.ne.567890) call abort + if (i.ne.567890) STOP 5 read(a(10:10),*)i - if (i.ne.0) call abort + if (i.ne.0) STOP 6 end |