1! RUN: bbc %s -o - | FileCheck %s 2 3program bar 4! CHECK: fir.address_of(@[[name1:.*]]my_data) 5 integer, save :: my_data = 1 6 print *, my_data 7 call foo() 8 call foo2() 9 call foo3() 10contains 11 12! CHECK-LABEL: func private @_QFPfoo 13subroutine foo() 14! CHECK: fir.address_of(@[[name2:.*foo.*my_data]]) 15 integer, save :: my_data = 2 16 print *, my_data + 1 17end subroutine 18 19! CHECK-LABEL: func private @_QFPfoo2 20subroutine foo2() 21! CHECK: fir.address_of(@[[name3:.*foo2.*my_data]]) 22 integer, save :: my_data 23 my_data = 4 24 print *, my_data 25end subroutine 26 27! CHECK-LABEL: func private @_QFPfoo3 28subroutine 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 subroutine 39end program 40 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