forked from OSchip/llvm-project
11 lines
294 B
Fortran
11 lines
294 B
Fortran
! RUN: bbc -emit-fir %s -o - | FileCheck %s
|
|
! RUN: %flang_fc1 -emit-fir %s -o - | FileCheck %s
|
|
|
|
! CHECK-LABEL: ior_test
|
|
subroutine ior_test(a, b)
|
|
integer :: a, b
|
|
print *, ior(a, b)
|
|
! CHECK: %{{[0-9]+}} = arith.ori %{{[0-9]+}}, %{{[0-9]+}} : i{{(8|16|32|64|128)}}
|
|
end subroutine ior_test
|
|
|