35 lines · plain
1! RUN: bbc %s -o "-" -emit-fir -hlfir=false | FileCheck %s2 3program basic4 return5end program6 7! CHECK-LABEL: func @_QQmain() attributes {fir.bindc_name = "BASIC"} {8! CHECK: return9! CHECK: }10 11subroutine sub1()12 return13end14 15! CHECK-LABEL: func @_QPsub1() {16! CHECK: cf.br ^bb117! CHECK: ^bb1: // pred: ^bb018! CHECK: return19 20subroutine sub2()21 goto 322 2 return23 3 goto 224end25 26! CHECK-LABEL: func @_QPsub2() {27! CHECK: cf.br ^bb228! CHECK: ^bb1: // pred: ^bb229! CHECK: cf.br ^bb330! CHECK: ^bb2: // pred: ^bb031! CHECK: cf.br ^bb132! CHECK: ^bb3: // pred: ^bb133! CHECK: return34 35