forked from OSchip/llvm-project
19 lines
472 B
Fortran
19 lines
472 B
Fortran
! RUN: bbc -emit-fir -o - %s | FileCheck %s
|
|
|
|
! CHECK-LABEL: func @_QPm
|
|
function m(index)
|
|
! CHECK: fir.select %{{.}} : i32 [1, ^bb{{.}}, 2, ^bb{{.}}, 3, ^bb{{.}}, 4, ^bb{{.}}, 5, ^bb{{.}}, unit, ^bb{{.}}]
|
|
goto (9,7,5,3,1) index ! + 1
|
|
m = 0; return
|
|
1 m = 1; return
|
|
3 m = 3; return
|
|
5 m = 5; return
|
|
7 m = 7; return
|
|
9 m = 9; return
|
|
end
|
|
|
|
! print*, m(-3); print*, m(0)
|
|
! print*, m(1); print*, m(2); print*, m(3); print*, m(4); print*, m(5)
|
|
! print*, m(6); print*, m(9)
|
|
end
|