50 lines · plain
1! RUN: bbc -emit-fir -o - %s | FileCheck %s2 3! CHECK-LABEL: func @_QPss4subroutine ss(n)5 print*, n6 ! CHECK: return{{$}}7 return8! CHECK-LABEL: func @_QPee9entry ee(n,*)10 print*, n11 ! CHECK: return %{{.}} : index12 return 113end14 15! CHECK-LABEL: func @_QQmain16 call ss(7)17 call ee(2, *3)18 print*, 'default'193 print*, 320 21 print*, k(10,20)22 print*, k(15,15)23 print*, k(20,10)24end25 26! CHECK-LABEL: func @_QPk27function k(n1, n2)28 ! CHECK-NOT: ^bb29 ! CHECK: [[selector:%[0-9]+]] = fir.call @_QPs30 ! CHECK-NEXT: fir.select [[selector]] : index [1, ^[[block1:bb[0-9]+]], 2, ^[[block2:bb[0-9]+]], unit, ^[[blockunit:bb[0-9]+]]31 call s(n1, *5, n2, *7)32 ! CHECK: ^[[blockunit]]: // pred: ^bb033 k = 0; return;34 ! CHECK: ^[[block1]]: // pred: ^bb0355 k = -1; return;36 ! CHECK: ^[[block2]]: // pred: ^bb0377 k = 1; return38end39 40! CHECK-LABEL: func @_QPs41subroutine s(n1, *, n2, *)42 ! CHECK: [[retval:%[0-9]+]] = fir.alloca index {{{.*}}bindc_name = "s"}43 ! CHECK-COUNT-3: fir.store {{.*}} to [[retval]] : !fir.ref<index>44 if (n1 < n2) return 145 if (n1 > n2) return 246 ! CHECK: {{.*}} = fir.load [[retval]] : !fir.ref<index>47 ! CHECK-NEXT: return {{.*}} : index48 return49end50