2 ! { dg-options "-fno-range-check" }
6 ! Test for Fortran 2003 BOZ.
11 real,parameter :: r2c = real(int(z'3333'))
12 real,parameter :: rc = real(z'3333')
13 double precision,parameter :: dc = dble(Z'3FD34413509F79FF')
14 complex,parameter :: z1c = cmplx(b'10101',-4.0)
15 complex,parameter :: z2c = cmplx(5.0, o'01245')
17 real :: r2 = real(int(z'3333'))
18 real :: r = real(z'3333')
19 double precision :: d = dble(Z'3FD34413509F79FF')
20 complex :: z1 = cmplx(b'10101',-4.0)
21 complex :: z2 = cmplx(5.0, o'01245')
23 if (r2c /= 13107.0) stop '1'
24 if (rc /= 1.83668190E-41) stop '2'
25 if (dc /= 0.30102999566398120) stop '3'
26 if (real(z1c) /= 2.94272678E-44 .or. aimag(z1c) /= -4.0) stop '4'
27 if (real(z2c) /= 5.0 .or. aimag(z2c) /= 9.48679060E-43) stop '5'
29 if (r2 /= 13107.0) stop '1'
30 if (r /= 1.83668190E-41) stop '2'
31 if (d /= 0.30102999566398120) stop '3'
32 if (real(z1) /= 2.94272678E-44 .or. aimag(z1) /= -4.0) stop '4'
33 if (real(z2) /= 5.0 .or. aimag(z2) /= 9.48679060E-43) stop '5'
35 r2 = dble(int(z'3333'))
37 d = dble(Z'3FD34413509F79FF')
38 z1 = cmplx(b'10101',-4.0)
39 z2 = cmplx(5.0, o'01245')
41 if (r2 /= 13107.0) stop '1'
42 if (r /= 1.83668190E-41) stop '2'
43 if (d /= 0.30102999566398120) stop '3'
44 if (real(z1) /= 2.94272678E-44 .or. aimag(z1) /= -4.0) stop '4'
45 if (real(z2) /= 5.0 .or. aimag(z2) /= 9.48679060E-43) stop '5'
53 real,parameter :: r2c = real(int(z'3333', kind=4), kind=4)
54 real,parameter :: rc = real(z'3333', kind=4)
55 complex,parameter :: z1c = cmplx(b'10101',-4.0, kind=4)
56 complex,parameter :: z2c = cmplx(5.0, o'01245', kind=4)
58 real :: r2 = real(int(z'3333', kind=4), kind=4)
59 real :: r = real(z'3333', kind=4)
60 complex :: z1 = cmplx(b'10101',-4.0, kind=4)
61 complex :: z2 = cmplx(5.0, o'01245', kind=4)
63 if (r2c /= 13107.0) stop '1'
64 if (rc /= 1.83668190E-41) stop '2'
65 if (real(z1c) /= 2.94272678E-44 .or. aimag(z1c) /= -4.0) stop '4'
66 if (real(z2c) /= 5.0 .or. aimag(z2c) /= 9.48679060E-43) stop '5'
68 if (r2 /= 13107.0) stop '1'
69 if (r /= 1.83668190E-41) stop '2'
70 if (real(z1) /= 2.94272678E-44 .or. aimag(z1) /= -4.0) stop '4'
71 if (real(z2) /= 5.0 .or. aimag(z2) /= 9.48679060E-43) stop '5'
73 r2 = real(int(z'3333'), kind=4)
74 r = real(z'3333', kind=4)
75 z1 = cmplx(b'10101',-4.0, kind=4)
76 z2 = cmplx(5.0, o'01245', kind=4)
78 if (r2 /= 13107.0) stop '1'
79 if (r /= 1.83668190E-41) stop '2'
80 if (real(z1) /= 2.94272678E-44 .or. aimag(z1) /= -4.0) stop '4'
81 if (real(z2) /= 5.0 .or. aimag(z2) /= 9.48679060E-43) stop '5'
86 real(8),parameter :: r2c = real(int(z'FFFFFF3333', kind=8), kind=8)
87 real(8),parameter :: rc = real(z'AAAAAAAAAAAAAAAAFFFFFFF3333', kind=8)
88 complex(8),parameter :: z1c = cmplx(b'11111011111111111111111111111111111111111111111111111111110101',-4.0, kind=8)
89 complex(8),parameter :: z2c = cmplx(5.0, o'444444444442222222222233301245', kind=8)
91 real(8) :: r2 = real(int(z'FFFFFF3333',kind=8),kind=8)
92 real(8) :: r = real(z'AAAAAAAAAAAAAAAAFFFFFFF3333', kind=8)
93 complex(8) :: z1 = cmplx(b'11111011111111111111111111111111111111111111111111111111110101',-4.0, kind=8)
94 complex(8) :: z2 = cmplx(5.0, o'444444444442222222222233301245', kind=8)
96 if (r2c /= 1099511575347.0d0) stop '1'
97 if (rc /= -3.72356884822177915d-103) stop '2'
98 if (real(z1c) /= 3.05175781249999627d-5 .or. aimag(z1c) /= -4.0) stop '4'
99 if (real(z2c) /= 5.0 .or. aimag(z2c) /= 3.98227593015308981d41) stop '5'
101 if (r2 /= 1099511575347.0d0) stop '1'
102 if (r /= -3.72356884822177915d-103) stop '2'
103 if (real(z1) /= 3.05175781249999627d-5 .or. aimag(z1) /= -4.0) stop '4'
104 if (real(z2) /= 5.0 .or. aimag(z2) /= 3.98227593015308981d41) stop '5'
106 r2 = real(int(z'FFFFFF3333',kind=8),kind=8)
107 r = real(z'AAAAAAAAAAAAAAAAFFFFFFF3333', kind=8)
108 z1 = cmplx(b'11111011111111111111111111111111111111111111111111111111110101',-4.0, kind=8)
109 z2 = cmplx(5.0, o'444444444442222222222233301245', kind=8)
111 if (r2 /= 1099511575347.0d0) stop '1'
112 if (r /= -3.72356884822177915d-103) stop '2'
113 if (real(z1) /= 3.05175781249999627d-5 .or. aimag(z1) /= -4.0) stop '4'
114 if (real(z2) /= 5.0 .or. aimag(z2) /= 3.98227593015308981d41) stop '5'