| ! { dg-do run } |
| ! PR16805 |
| ! Test list directed reads from character substrings |
| ! The IO library was reporting an error rather the end-or-fecord when it |
| ! got to the end of an internal file record. |
| program list_read_2 |
| implicit none |
| character*10 a |
| data a /'1234567890'/ |
| integer i |
| logical debug |
| data debug /.TRUE./ |
| read(a,*)i |
| if (i.ne.1234567890) call abort |
| read(a(1:1),*)i |
| if (i.ne.1) call abort |
| read(a(2:2),*)i |
| if (i.ne.2) call abort |
| read(a(1:5),*)i |
| if (i.ne.12345) call abort |
| read(a(5:10),*)i |
| if (i.ne.567890) call abort |
| read(a(10:10),*)i |
| if (i.ne.0) call abort |
| end |