Searched refs:tbp_pure (Results 1 – 1 of 1) sorted by relevance
8 procedure, nopass :: tbp_pure => pure method14 procedure, nopass :: tbp_pure => impure ! 7.5.7.3 method49 real :: a(x%tbp_pure(1)) ! ok53 a(j) = x%tbp_pure(j) ! ok59 do concurrent (j=1:1, x%tbp_pure(j) /= 0) ! ok60 a(j) = x%tbp_pure(j) ! ok