2 ! Tests the fix for the bug PR30746, in which the reference to 'x'
3 ! in 'inner' wrongly host-associated with the variable 'x' rather
6 ! Testcase is due to Malcolm Cohen, NAG.
14 REAL :: x(3) = (/ 1.5, 2.5, 3.5 /)
22 if (x(2, 3) .ne
. real (2)**3) STOP 1
23 if (z(3, 3) .ne
. real (3)**3) STOP 2
28 if (x(i
, 7) .ne
. real (7)**7) STOP 3
29 if (z(i
, 7) .ne
. real (7)**7) STOP 4