Searched refs:tbp_impure (Results 1 – 1 of 1) sorted by relevance
9 procedure, nopass :: tbp_impure => impure method51 real :: b(x%tbp_impure(1))57 a(j) = x%tbp_impure(j) ! C103763 do concurrent (j=1:1, x%tbp_impure(j) /= 0) ! C112165 a(j) = x%tbp_impure(j) ! C1139