blob: 79302cd924772ceceb54c9e84bb8f0039e925a3f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
! { dg-do run }
program foo
implicit none
integer(1) i1
integer(2) i2
integer(4) i4, j4
integer(8) i8
i1 = int(z'12', 1); if (i1 /= 18) stop 1
i2 = int(z'1234', 2); if (i2 /= 4660) stop 2
i4 = int(z'1234', 4); if (i4 /= 4660) stop 3
j4 = int(z'1234'); if (i4 /= 4660) stop 4
i8 = int(z'1233456',8); if (i8 /= 19084374_8) stop 5
end program
|
