1e539faceSValentin Clement! RUN: bbc %s -o - | FileCheck %s 2e539faceSValentin Clement 3e539faceSValentin Clementprogram bar 4e539faceSValentin Clement! CHECK: fir.address_of(@[[name1:.*]]my_data) 5e539faceSValentin Clement integer, save :: my_data = 1 6e539faceSValentin Clement print *, my_data 7*06f775a8SjeanPerier call foo() 8*06f775a8SjeanPerier call foo2() 9*06f775a8SjeanPerier call foo3() 10e539faceSValentin Clementcontains 11e539faceSValentin Clement 12*06f775a8SjeanPerier! CHECK-LABEL: func private @_QFPfoo 13e539faceSValentin Clementsubroutine foo() 14e539faceSValentin Clement! CHECK: fir.address_of(@[[name2:.*foo.*my_data]]) 15e539faceSValentin Clement integer, save :: my_data = 2 16e539faceSValentin Clement print *, my_data + 1 17e539faceSValentin Clementend subroutine 18e539faceSValentin Clement 19*06f775a8SjeanPerier! CHECK-LABEL: func private @_QFPfoo2 20e539faceSValentin Clementsubroutine foo2() 21e539faceSValentin Clement! CHECK: fir.address_of(@[[name3:.*foo2.*my_data]]) 22e539faceSValentin Clement integer, save :: my_data 23e539faceSValentin Clement my_data = 4 24e539faceSValentin Clement print *, my_data 25e539faceSValentin Clementend subroutine 26e539faceSValentin Clement 27*06f775a8SjeanPerier! CHECK-LABEL: func private @_QFPfoo3 28e539faceSValentin Clementsubroutine foo3() 29e539faceSValentin Clement! CHECK-DAG: fir.address_of(@[[name4:.*foo3.*idata]]){{.*}}fir.array<5xi32> 30e539faceSValentin Clement! CHECK-DAG: fir.address_of(@[[name5:.*foo3.*rdata]]){{.*}}fir.array<3xf16> 31e539faceSValentin Clement! CHECK-DAG: fir.address_of(@[[name6:.*foo3.*my_data]]){{.*}}fir.array<2x4xi64> 32e539faceSValentin Clement integer*4, dimension(5), save :: idata = (/ (i*i, i=1,5) /) 33e539faceSValentin Clement integer*8, dimension(2, 10:13), save :: my_data = reshape((/1,2,3,4,5,6,7,8/), shape(my_data)) 34e539faceSValentin Clement real*2, dimension(7:9), save :: rdata = (/100., 99., 98./) 35e539faceSValentin Clement print *, rdata(9) 36e539faceSValentin Clement print *, idata(3) 37e539faceSValentin Clement print *, my_data(1,11) 38e539faceSValentin Clementend subroutine 39e539faceSValentin Clementend program 40e539faceSValentin Clement 41e539faceSValentin Clement! CHECK: fir.global internal @[[name1]] 42e539faceSValentin Clement! CHECK: fir.global internal @[[name2]] 43e539faceSValentin Clement! CHECK: fir.global internal @[[name3]] 44e539faceSValentin Clement! CHECK-DAG: fir.global internal @[[name4]]{{.*}}fir.array<5xi32> 45e539faceSValentin Clement! CHECK-DAG: fir.global internal @[[name5]]{{.*}}fir.array<3xf16> 46e539faceSValentin Clement! CHECK-DAG: fir.global internal @[[name6]]{{.*}}fir.array<2x4xi64> 47