Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/io_real_boz.f90 @ 132:d34655255c78

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
update gcc-8.2
author mir3636
date Thu, 25 Oct 2018 10:21:07 +0900
parents 84e7813d76e9
children
comparison
equal deleted inserted replaced
130:e108057fa461 132:d34655255c78
16 c ='g' 16 c ='g'
17 17
18 write(str,'(b0)') i 18 write(str,'(b0)') i
19 write(fmt,'(a,i0,a)') '(b',len_trim(str),')' 19 write(fmt,'(a,i0,a)') '(b',len_trim(str),')'
20 read(str,fmt) i2 20 read(str,fmt) i2
21 if(i /= i2) call abort() 21 if(i /= i2) STOP 1
22 22
23 write(str,'(o0)') i 23 write(str,'(o0)') i
24 write(fmt,'(a,i0,a)') '(o',len_trim(str),')' 24 write(fmt,'(a,i0,a)') '(o',len_trim(str),')'
25 read(str,fmt) i2 25 read(str,fmt) i2
26 if(i /= i2) call abort() 26 if(i /= i2) STOP 2
27 27
28 write(str,'(z0)') i 28 write(str,'(z0)') i
29 write(fmt,'(a,i0,a)') '(z',len_trim(str),')' 29 write(fmt,'(a,i0,a)') '(z',len_trim(str),')'
30 read(str,fmt) i2 30 read(str,fmt) i2
31 if(i /= i2) call abort() 31 if(i /= i2) STOP 3
32 32
33 33
34 write(str,'(b0)') r 34 write(str,'(b0)') r
35 write(fmt,'(a,i0,a)') '(b',len_trim(str),')' 35 write(fmt,'(a,i0,a)') '(b',len_trim(str),')'
36 read(str,fmt) r2 36 read(str,fmt) r2
37 if(r /= r2) call abort() 37 if(r /= r2) STOP 4
38 38
39 write(str,'(o0)') r 39 write(str,'(o0)') r
40 write(fmt,'(a,i0,a)') '(o',len_trim(str),')' 40 write(fmt,'(a,i0,a)') '(o',len_trim(str),')'
41 read(str,fmt) r2 41 read(str,fmt) r2
42 if(r /= r2) call abort() 42 if(r /= r2) STOP 5
43 43
44 write(str,'(z0)') r 44 write(str,'(z0)') r
45 write(fmt,'(a,i0,a)') '(z',len_trim(str),')' 45 write(fmt,'(a,i0,a)') '(z',len_trim(str),')'
46 read(str,fmt) r2 46 read(str,fmt) r2
47 if(r /= r2) call abort() 47 if(r /= r2) STOP 6
48 48
49 49
50 write(str,'(b0)') c 50 write(str,'(b0)') c
51 write(fmt,'(a,i0,a)') '(b',len_trim(str),')' 51 write(fmt,'(a,i0,a)') '(b',len_trim(str),')'
52 read(str,fmt) c2 52 read(str,fmt) c2
53 if(c /= c2) call abort() 53 if(c /= c2) STOP 7
54 54
55 write(str,'(o0)') c 55 write(str,'(o0)') c
56 write(fmt,'(a,i0,a)') '(o',len_trim(str),')' 56 write(fmt,'(a,i0,a)') '(o',len_trim(str),')'
57 read(str,fmt) c2 57 read(str,fmt) c2
58 if(c /= c2) call abort() 58 if(c /= c2) STOP 8
59 59
60 write(str,'(z0)') c 60 write(str,'(z0)') c
61 write(fmt,'(a,i0,a)') '(z',len_trim(str),')' 61 write(fmt,'(a,i0,a)') '(z',len_trim(str),')'
62 read(str,fmt) c2 62 read(str,fmt) c2
63 if(c /= c2) call abort() 63 if(c /= c2) STOP 9
64 64
65 end program real_boz 65 end program real_boz
66 66