OSDN Git Service

2006-10-28 Tobias Burnus <burnus@net-b.de>
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / io_real_boz.f90
1 ! { dg-do run }
2 ! Test reading/writing of integer, real and character BOZ
3 ! non-integer BOZ are not valid in standard Fortran, however.
4 ! PR fortran/29625
5 program real_boz
6   implicit none
7   integer(4)        :: i,i2
8   real(4)           :: r,r2
9   complex(4)        :: z,z2
10   character         :: c,c2
11   character(len=100) :: str,fmt
12
13   i = 43
14   r = 325.56
15   z = cmplx(14.456, 345342.456)
16   c ='g'
17
18   write(str,'(b0)') i
19   write(fmt,'(a,i0,a)') '(b',len_trim(str),')'
20   read(str,fmt) i2
21   if(i /= i2) call abort()
22
23   write(str,'(o0)') i
24   write(fmt,'(a,i0,a)') '(o',len_trim(str),')'
25   read(str,fmt) i2
26   if(i /= i2) call abort()
27
28   write(str,'(z0)') i
29   write(fmt,'(a,i0,a)') '(z',len_trim(str),')'
30   read(str,fmt) i2
31   if(i /= i2) call abort()
32
33
34   write(str,'(b0)') r
35   write(fmt,'(a,i0,a)') '(b',len_trim(str),')'
36   read(str,fmt) r2
37   if(r /= r2) call abort()
38   
39   write(str,'(o0)') r
40   write(fmt,'(a,i0,a)') '(o',len_trim(str),')'
41   read(str,fmt) r2
42   if(r /= r2) call abort()
43
44   write(str,'(z0)') r
45   write(fmt,'(a,i0,a)') '(z',len_trim(str),')'
46   read(str,fmt) r2
47   if(r /= r2) call abort()
48
49
50   write(str,'(b0)') c
51   write(fmt,'(a,i0,a)') '(b',len_trim(str),')'
52   read(str,fmt) c2
53   if(c /= c2) call abort()
54
55   write(str,'(o0)') c
56   write(fmt,'(a,i0,a)') '(o',len_trim(str),')'
57   read(str,fmt) c2
58   if(c /= c2) call abort()
59
60   write(str,'(z0)') c
61   write(fmt,'(a,i0,a)') '(z',len_trim(str),')'
62   read(str,fmt) c2
63   if(c /= c2) call abort()
64
65 end program real_boz
66