25 lines · plain
1! RUN: bbc %s -o "-" | FileCheck %s2 3 ! CHECK-LABEL: irreducible4 subroutine irreducible(k)5 ! CHECK: cond_br %{{[0-9]+}}, ^bb1, ^bb26 if (k < 5) goto 207 ! CHECK: ^bb1: // 2 preds: ^bb0, ^bb2810 print*, k ! scc entry #1: (k < 5) is false9 k = k + 110 ! CHECK: ^bb2: // 2 preds: ^bb0, ^bb111 ! CHECK: cond_br %{{[0-9]+}}, ^bb1, ^bb31220 if (k < 3) goto 10 ! scc entry #2: (k < 5) is true13 ! CHECK: ^bb3: // pred: ^bb214 end15 16 ! CHECK-LABEL: main17 program p18 do i = 0, 619 n = i20 print*21 print*, 1000 + n22 call irreducible(n)23 enddo24 end25