| ! RUN: bbc %s -o "-" -emit-fir -hlfir=false | FileCheck %s |
| |
| program basic |
| return |
| end program |
| |
| ! CHECK-LABEL: func @_QQmain() attributes {fir.bindc_name = "basic"} { |
| ! CHECK: return |
| ! CHECK: } |
| |
| subroutine sub1() |
| return |
| end |
| |
| ! CHECK-LABEL: 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 @_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 |
| |