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