Lines Matching refs:source

64   allocate(x1, x2(10), source=srcx)
65   allocate(x2(10), source=srcx_array)
67   allocate(param_ca_4_2, source=src_b_4_2_8_3)
69   allocate(param_ca_4_2, source=src_b_4_def_8_3) ! no C935 equivalent for source-expr
70   allocate(param_ta_4_assumed, param_ca_4_assumed, source=src_a_4_def)
72 …allocate(param_ta_4_assumed, param_ca_4_assumed, source=src_a_4_2) ! no C935 equivalent for source…
74   allocate(param_ta_4_deferred, param_ca_4_deferred, source =src_a_4_2)
77   allocate(extended2, source=src_c_4_5_5_6_8_8)
80   allocate(param_defaulted, source=WithParam(k1=1)(x=5))
82   allocate(whatever, source=src_c_1_2_5_6_5_8)
84   allocate(integer_default, source=[(i,i=0,9)])
86   allocate(deferredChar, source="abcd")
89   allocate(char2, source="a")
91   allocate(char2, source="abc")
95   allocate(x1, source=cos(0._8))
97   allocate(x2(10), source=srcx8)
101   allocate(param_ta_4_2, source=src_a_8_2)
105   allocate(param_ta_4_2, source=src_a_8_def)
107   allocate(param_ca_4_2, source=src_b_8_2_8_3)
111   allocate(param_ta_4_assumed, source=src_a_8_def)
117   allocate(param_ca_4_assumed, source=src_b_8_2_8_3)
121   allocate(param_ca_4_deferred, source=src_a_8_def)
125   allocate(extended2, source=src_c_5_5_5_6_8_8)
129   allocate(extended2, source=WithParamExtent2(k1=4, l1=5, k2=5, l2=6, k3=5, l3=8)(x=5))
133   allocate(param_defaulted, source=param_ca_4_2)
137   allocate(param_defaulted, source=src_c_5_2_5_6_5_8)
139   allocate(integer_default, source=[(i, integer(8)::i=0,9)])