47 lines · plain
1! RUN: bbc %s -o - | FileCheck %s2 3program bar4! CHECK: fir.address_of(@[[name1:.*]]my_data)5 integer, save :: my_data = 16 print *, my_data7 call foo()8 call foo2()9 call foo3()10contains11 12! CHECK-LABEL: func private @_QFPfoo13subroutine foo()14! CHECK: fir.address_of(@[[name2:.*foo.*my_data]])15 integer, save :: my_data = 216 print *, my_data + 117end subroutine18 19! CHECK-LABEL: func private @_QFPfoo220subroutine foo2()21! CHECK: fir.address_of(@[[name3:.*foo2.*my_data]])22 integer, save :: my_data23 my_data = 424 print *, my_data25end subroutine26 27! CHECK-LABEL: func private @_QFPfoo328subroutine foo3()29! CHECK-DAG: fir.address_of(@[[name4:.*foo3.*idata]]){{.*}}fir.array<5xi32>30! CHECK-DAG: fir.address_of(@[[name5:.*foo3.*rdata]]){{.*}}fir.array<3xf16>31! CHECK-DAG: fir.address_of(@[[name6:.*foo3.*my_data]]){{.*}}fir.array<2x4xi64>32 integer*4, dimension(5), save :: idata = (/ (i*i, i=1,5) /)33 integer*8, dimension(2, 10:13), save :: my_data = reshape((/1,2,3,4,5,6,7,8/), shape(my_data))34 real*2, dimension(7:9), save :: rdata = (/100., 99., 98./)35 print *, rdata(9)36 print *, idata(3)37 print *, my_data(1,11)38end subroutine39end program40 41! CHECK: fir.global internal @[[name1]]42! CHECK: fir.global internal @[[name2]]43! CHECK: fir.global internal @[[name3]]44! CHECK-DAG: fir.global internal @[[name4]]{{.*}}fir.array<5xi32>45! CHECK-DAG: fir.global internal @[[name5]]{{.*}}fir.array<3xf16>46! CHECK-DAG: fir.global internal @[[name6]]{{.*}}fir.array<2x4xi64>47