14 lines · plain
1! RUN: bbc %s --pft-test | FileCheck %s2! RUN: bbc %s -o "-" -emit-fir | FileCheck %s --check-prefix=FIR3 4program basic5end program6 7! CHECK: 1 Program BASIC8! CHECK: 1 EndProgramStmt: end program9! CHECK: End Program BASIC10 11! FIR-LABEL: func @_QQmain() attributes {fir.bindc_name = "BASIC"} {12! FIR: return13! FIR: }14