51 lines · plain
1! RUN: %flang_fc1 -fdebug-unparse %s 2>&1 | FileCheck %s2! Check that a call to LSHIFT is transformed to SHIFTL.3 4subroutine test_default_integer()5 integer :: i, j, k6 k = lshift(i, j)7!CHECK: k=shiftl(i,j)8 k = lshift(16, 2)9!CHECK: k=64_410end11 12subroutine test_integer1()13 integer(1) :: i, j, k14 k = lshift(i, j)15!CHECK: k=shiftl(i,int(j,kind=4))16 print *, lshift(8_1, 2)17!CHECK: PRINT *, 32_118end19 20subroutine test_integer2()21 integer(2) :: i, j, k22 k = lshift(i, j)23!CHECK: k=shiftl(i,int(j,kind=4))24 print *, lshift(8_2, 2)25!CHECK: PRINT *, 32_226end27 28subroutine test_integer4()29 integer(4) :: i, j, k30 k = lshift(i, j)31!CHECK: k=shiftl(i,j)32 print *, lshift(8_4, 2)33!CHECK: PRINT *, 32_434end35 36subroutine test_integer8()37 integer(8) :: i, j, k38 k = lshift(i, j)39!CHECK: k=shiftl(i,int(j,kind=4))40 print *, lshift(-16_8, 2)41!CHECK: PRINT *, -64_842end43 44subroutine test_integer16()45 integer(16) :: i, j, k46 k = lshift(i, j)47!CHECK: k=shiftl(i,int(j,kind=4))48 print *, lshift(8_16, 2)49!CHECK: PRINT *, 32_1650end51