718f7480db
Tests converted from test/Lower: dense-attributed-array.f90, goto-statement.f90, infinite_loop.f90, return-statement.f90, stop-statement.f90
35 lines
678 B
Fortran
35 lines
678 B
Fortran
! RUN: %flang_fc1 -emit-hlfir %s -o "-" | FileCheck %s
|
|
|
|
program basic
|
|
return
|
|
end program
|
|
|
|
! CHECK-LABEL: func.func @_QQmain() attributes {fir.bindc_name = "BASIC"} {
|
|
! CHECK: return
|
|
! CHECK: }
|
|
|
|
subroutine sub1()
|
|
return
|
|
end
|
|
|
|
! CHECK-LABEL: func.func @_QPsub1() {
|
|
! CHECK: cf.br ^bb1
|
|
! CHECK: ^bb1: // pred: ^bb0
|
|
! CHECK: return
|
|
|
|
subroutine sub2()
|
|
goto 3
|
|
2 return
|
|
3 goto 2
|
|
end
|
|
|
|
! CHECK-LABEL: func.func @_QPsub2() {
|
|
! CHECK: cf.br ^bb2
|
|
! CHECK: ^bb1: // pred: ^bb2
|
|
! CHECK: cf.br ^bb3
|
|
! CHECK: ^bb2: // pred: ^bb0
|
|
! CHECK: cf.br ^bb1
|
|
! CHECK: ^bb3: // pred: ^bb1
|
|
! CHECK: return
|
|
|