41 lines · plain
1! RUN: bbc -emit-fir -o - %s | FileCheck %s2 3 ! CHECK-LABEL: func @_QPnolist4 subroutine nolist5 integer L, V6 11 V = 17 ! CHECK: fir.store %c31{{.*}} to %{{.}}8 assign 31 to L9 ! CHECK: fir.select %{{.}} : i32 [31, ^bb{{.}}, unit, ^bb{{.}}]10 ! CHECK: fir.call @_FortranAReportFatalUserError11 goto L ! no list12 21 V = 213 go to 4114 31 V = 315 41 print*, 3, V16 end17 18 ! CHECK-LABEL: func @_QPlist19 subroutine list20 integer L, L1, V21 66 format("Nonsense")22 assign 66 to L23 assign 42 to L124 ! CHECK: fir.store %c22{{.*}} to %{{.}}25 assign 22 to L26 12 V = 10027 ! CHECK: fir.store %c32{{.*}} to %{{.}}28 assign 32 to L29 ! CHECK: fir.select %{{.}} : i32 [22, ^bb{{.}}, 32, ^bb{{.}}, unit, ^bb{{.}}]30 ! CHECK: fir.call @_FortranAReportFatalUserError31 goto L (42, 32, 22, 32, 32) ! duplicate labels are allowed32 22 V = 20033 go to 4234 32 V = 30035 42 print*, 300, V36 end37 38 call nolist39 call list40 end41