summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/cr_lf.f90
blob: eb5500e01d3966c713b4d08bd82c183fb496e774 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
! { dg-do run }
! { dg-options "-fbackslash" }
! PR41328 and PR41168 Improper read of CR-LF sequences.
! Test case prepared by Jerry DeLisle  <jvdelisle@gcc.gnu.org>
program main
   implicit none
   integer :: iostat, n_chars_read, k
   character(len=1) :: buffer(64) = ""
   character (len=80) :: u

   ! Set up the test file with normal file end.
   open(unit=10, file="crlftest", form="unformatted", access="stream",&
   & status="replace")
   write(10) "a\rb\rc\r" ! CR at the end of each record.
   close(10, status="keep")

   open(unit=10, file="crlftest", form="formatted", status="old")
   
   read( unit=10, fmt='(64A)', advance='NO', iostat=iostat,          &
         size=n_chars_read ) buffer
   if (n_chars_read.ne.1) call abort
   if (any(buffer(1:n_chars_read).ne."a")) call abort
   if (.not.is_iostat_eor(iostat)) call abort

   read( unit=10, fmt='(64A)', advance='NO', iostat=iostat,          &
         size=n_chars_read ) buffer
   if (n_chars_read.ne.1) call abort
   if (any(buffer(1:n_chars_read).ne."b")) call abort
   if (.not.is_iostat_eor(iostat)) call abort

   read( unit=10, fmt='(64A)', advance='NO', iostat=iostat,          &
         size=n_chars_read ) buffer
   if (n_chars_read.ne.1) call abort
   if (any(buffer(1:n_chars_read).ne."c")) call abort
   if (.not.is_iostat_eor(iostat)) call abort

   read( unit=10, fmt='(64A)', advance='NO', iostat=iostat,          &
         size=n_chars_read ) buffer
   if (n_chars_read.ne.0) call abort
   if (any(buffer(1:n_chars_read).ne."a")) call abort
   if (.not.is_iostat_end(iostat)) call abort
   close(10, status="delete")

   ! Set up the test file with normal file end.
   open(unit=10, file="crlftest", form="unformatted", access="stream",&
   & status="replace")
   write(10) "a\rb\rc\rno end of line marker" ! Note, no CR at end of file.
   close(10, status="keep")

   open(unit=10, file="crlftest", status='old')

   do k = 1, 10
     read(10,'(a80)',end=101,err=100) u
     !print *,k,' : ',u(1:len_trim(u))
   enddo
   
100 continue
   close(10, status="delete")
   call abort

101 continue
   close(10, status="delete")
   if (u(1:len_trim(u)).ne."no end of line marker") call abort
end program main