| ! { dg-do run } |
| ! { dg-options "-funsigned" } |
| ! Test bit functions, huge and digits. |
| unsigned :: u1, u2, u3 |
| u1 = 32u |
| u2 = 64u |
| if (ior (u1,u2) /= u1 + u2) error stop 1 |
| if (ior (32u,64u) /= 32u + 64u) error stop 2 |
| u1 = 234u |
| u2 = 221u |
| if (iand (u1,u2) /= 200u) error stop 3 |
| if (iand (234u,221u) /= 200u) error stop 4 |
| if (ieor (u1,u2) /= 55u) error stop 5 |
| if (ieor (234u,221u) /= 55u) error stop 6 |
| u1 = huge(u1) |
| if (u1 /= 4294967295u) error stop 7 |
| u2 = not(0u) |
| u3 = u2 - u1 |
| if (u3 /= 0u) error stop 8 |
| u2 = not(255u); |
| if (u2 /= huge(u2) - 255u) error stop 9 |
| u1 = 255u |
| u2 = not(u1) |
| if (u2 /= huge(u2) - 255u) error stop 9 |
| if (digits(u1) /= 32) error stop 10 |
| end |
