Skip to content

Commit

Permalink
tests: update tests for testing optional arg size
Browse files Browse the repository at this point in the history
  • Loading branch information
parth121101 committed Jul 15, 2024
1 parent 4da1bbd commit d679a50
Showing 1 changed file with 32 additions and 0 deletions.
32 changes: 32 additions & 0 deletions integration_tests/intrinsics_163.f90
Original file line number Diff line number Diff line change
Expand Up @@ -132,6 +132,38 @@ program intrinsics_163
res_8 = ishftc(-9223372036854775807_8, -63_8)
print *, res_8
if (res_8 /= 3) error stop

res_1 = ishftc(10_1, 2_1, 4_1)
print *, res_1
if (res_1 /= 10) error stop

res_1 = ishftc(10_1, -2_1, 7_1)
print *, res_1
if (res_1 /= 66) error stop

res_2 = ishftc(10_2, 2_2, 6_2)
print *, res_2
if (res_2 /= 40) error stop

res_2 = ishftc(10_2, -2_2, 11_2)
print *, res_2
if (res_2 /= 1026) error stop

res_4 = ishftc(10_4, 2_4, 13_4)
print *, res_4
if (res_4 /= 40) error stop

res_4 = ishftc(10_4, -2_4, 31_4)
print *, res_4
if (res_4 /= 1073741826) error stop


res_8 = ishftc(10_8, 2_8, 62_8)
print *, res_8
if (res_8 /= 40_8) error stop

res_8 = ishftc(10_8, -2_8, 59_8)
print *, res_8
if (res_8 /= 288230376151711746_8) error stop

end program

0 comments on commit d679a50

Please sign in to comment.