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