4 ! Loop bounds temporaries used before being defined for elemental subroutines
6 ! Original testcase by Harald Anlauf <anlauf@gmx.de>
10 integer :: jplev
, k_lev
13 integer, pointer :: q(:)
16 call random_number (r
)
21 call tq_tvgh (q(k_lev
:), p(k_lev
:))
22 if (any (p
/= q
)) call abort
25 call tq_tvgh (q(k_lev
:), (p(k_lev
:)))
26 if (any (p
/= q
)) call abort
29 call tq_tvgh (q(k_lev
:), (p(p(k_lev
:))))
30 if (any (p(p
) /= q
)) call abort
35 elemental
subroutine tq_tvgh (t
, p
)
36 integer ,intent (out
) :: t
37 integer ,intent (in
) :: p
39 end subroutine tq_tvgh
40 end program gfcbu84_main