| ! { dg-do run } | |
| ! { dg-options "-funsigned" } | |
| program memain | |
| implicit none | |
| unsigned(1) i1,j1 | |
| unsigned(2) i2,j2 | |
| unsigned(4) i4,j4 | |
| unsigned(8) i8,j8 | |
| integer ibits,n | |
| ibits=bit_size(1u_1) | |
| do n=1,ibits | |
| i1=huge(i1) | |
| call mvbits(1u_1, 0,n,i1,0) | |
| j1=uint(-1-2_1**n+2) | |
| if(i1.ne.j1) error stop 1 | |
| enddo | |
| ibits=bit_size(1u_2) | |
| do n=1,ibits | |
| i2=huge(i2) | |
| call mvbits(1u_2, 0,n,i2,0) | |
| j2=uint(-1-2_2**n+2) | |
| if(i2.ne.j2) error stop 2 | |
| enddo | |
| ibits=bit_size(1u_4) | |
| do n=1,ibits | |
| i4=huge(i4) | |
| call mvbits(1u_4, 0,n,i4,0) | |
| j4=uint(-1-2_4**n+2) | |
| if(i4.ne.j4) error stop 3 | |
| enddo | |
| ibits=bit_size(1_8) | |
| do n=1,ibits | |
| i8=huge(i8) | |
| call mvbits(1u_8, 0,n,i8,0) | |
| j8=uint(-1-2_8**n+2,8) | |
| if(i8.ne.j8) error stop 4 | |
| enddo | |
| end program memain |