Mercurial > hg > CbC > CbC_gcc
comparison gcc/testsuite/gfortran.dg/io_real_boz.f90 @ 132:d34655255c78
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 |