Lines Matching defs:x1
20 real, save, pointer :: x1, x2
23 allocate(x1, x2, source = a)
30 ! CHECK: %[[VAL_3:.*]] = fir.alloca !fir.box<!fir.ptr<!fir.array<?x?xi32>>> {bindc_name = "x1", uniq_name = "_QFtest_pointer_2d_arrayEx1"}
90 integer, pointer :: x1(:,:), x2(:,:), x3(:,:)
93 allocate(x1, x2, source = a)
101 ! CHECK: %[[VAL_3:.*]] = fir.alloca !fir.box<!fir.ptr<!fir.array<?xi32>>> {bindc_name = "x1", uniq_name = "_QFtest_pointer_with_shapespecEx1"}
157 integer, pointer :: x1(:), x2(:)
160 allocate(x1(2:m), x2(n), source = a)
166 ! CHECK: %[[VAL_2:.*]] = fir.alloca !fir.box<!fir.ptr<!fir.array<?xi32>>> {bindc_name = "x1", uniq_name = "_QFtest_pointer_from_constEx1"}
215 integer, pointer :: x1(:)
218 allocate(x1, source = [1, 2, 3, 4, 5])
224 ! CHECK: %[[VAL_2:.*]] = fir.alloca !fir.box<!fir.ptr<!fir.array<?x!fir.char<1,4>>>> {bindc_name = "x1", uniq_name = "_QFtest_pointer_chararrayEx1"}
264 character(4), pointer :: x1(:)
268 allocate(x1, source = a)
275 ! CHECK: %[[VAL_3:.*]] = fir.alloca !fir.box<!fir.ptr<!fir.char<1,?>>> {bindc_name = "x1", uniq_name = "_QFtest_pointer_charEx1"}
306 character(:), pointer :: x1
310 allocate(x1, source = a)